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The .NET Learning Curve 

Dan Appleman, leading author on VB 

The biggest challenge .NET poses to Windows developers today is not deployment - it's 
education. The .NET Framework is so huge and so different, that you'll need to invest significant 
time studying and experimenting with .NET before you start deploying real applications. How 
does one go about learning .NET? Expensive courses and conferences? Books? Articles? 
Regardless, it is essential to first learn the core concepts of .NET. That is the foundation on which 
you can base further learning, and that's the focus of my new book "Moving to VB.NET: 
Strategies, Concepts and Code". You can read the introduction and sample text at 
www.desaware.com. There you'll also read about Spy Works 6.3 with .NET support, 
VersionStamper's support for .NET applications that use COM components, and new products 
designed specifically for .NET Dan 




NT Service Toolkit 
Full featured services with VB6! 

Visual Basic programmers have long searched 
for a good way to create NT Services using 
Visual Basic. Yet every solution they found had 
serious limitations and compromises - until now. 
Desaware's NT Service Toolkit provides all the 
power of a C++ service from VB - but the 
services are far easier to create and debug! 

• Debug your service using the VB environment - while it is 
running as a service! 

• Automatic background threads for waiting on NT 
synchronization objects. 

• Access and control services through COM or DCOM. 

• Expose client objects via COM or DCOM. 

• Client objects run on a thread pool for scalability. 

• Create background threads for asynchronous operations. 

• Create control panel applets to manage your services. 

• All service notifications (including those new to Win 2000). 

• Simulator allows testing without installing as a service. 

• Impersonation allows acting on behalf of clients. 

• Access to all service configuration parameters. 

Escape DLL Hell! 

VersionStamper helps eliminate incompatibility 
problems that can occur when distributing 
component based applications - including .NET 
applications that use COM components. Your 
application can analyze a client system using an 
embedded dependency list or data from your 
Web or FTP site. Problems can be resolved by 
notifying the user, reporting via Email, or automatic download 
of the correct components from your Web or FTP site. 

New! Event Log Toolkit 

Create custom event sources with this easy to 
use toolkit. Eliminates the problem with VB6 in 
which all events are logged as coming from 
VBRuntime. Event sources are easy to 
distribute, self-installing, and support multiple 
languages. Included code demonstrates 
advanced event reporting API calls. 



Data Storage for VB, VBA 
and Internet Applications 

StorageTools allows you to create complex 
documents, each of which can be subdivided 
into multiple named blocks of data. StorageTools 
actually gives you more data storage flexibility 
than most databases, without the overhead! 






SpyWorks® 6.3 - The ultimate low 
m level toolkit, now compatible with 
If /B.NET and C# for VS.NET Beta 2 

Advanced Subclassing and Hooks - In-and 
H cross process subclassing for VB6 and .NET! 
H Use Windows Hooks to intercept messages 
VraHHHHI and keys for a window, process or the entire 

system. Create Background threads for your 
VB6 DLL COM objects. Create true Function Exports from 
your VB6 DLLs. Handle Internet/Intranet communications with 
our Winsock Component - with VB source. Create Control 
Panel Applets. Implement or call ANY interface - No type 
library. And much more.... 



Books 




Moving to VB.Net: Strategies, 
Concepts and Code 

VB.Net is not Visual Basic. Porting is stupid. COM is 
"dead". These are just a few of the things you'll learn 
as Dan takes you on a journey unlike any other into 
the world of VB.Net. Covers adoption strategies, 
unlearning VB6 concepts that are fatal in VB.Net, 
and analysis of language changes that goes beyond 
the documentation, apress, isbn 1-893115-97-6 

Visual Basic.NET or C# - Which to Choose? -A 

new PDF based e-book comparing VB.NET and C# 
available now at www.desaware.comA/BorCsharp.htm. 

How Computer Programming Works -The ideal 
book for beginning programmers. Teaches the 
fundamentals of programming using illustrations and 
1 real world analogies. APRESS, ISBN 1-893115-23-2 

Also available 

Dan Appleman's Visual Basic Programmer's Guide 
to the Win32 API - The core Windows Software 
Development Kit rewritten for VB programmers. Dan 
Appleman's Win32 API Puzzle Book and Tutorial for 
VB Programmers teaches you to call any API function 
from VB5 & 6 Developing COM/ActiveX Components 
with Visual Basic 6.0. The essentials of COM and 
component development for VB. 

For more information, please visit... 

www.desawape.com 

Desaware Inc. 

1100 E. Hamilton Ave., Suite 4 
Campbell, CA 95008 
tel: (408) 377-4770 fax: (408) 371-3530 
email: support@desaware.com 



For even more tricks and tips go to 
www.vbpj.com or www.vcdj.com 



Welcome to the First Edition of the 
VSM Technical Tips Supplement! 

The editors of Visual Studio Magazine are pleased to 
bring you these invaluable tips, techniques, and 
workarounds, submitted and reviewed by profes- 
sional developers. Instead of typing the code pub- 
lished here, download the tips for free from the VSM 
Web site at www.vbpj.com or www.vcdj.com. 

We know you've uncovered your own tips and 
tricks — send them to us at vsmtips@fawcette.com. 
Include a clear explanation of what the technique 
does, why it's useful, and what language(s) and 
version(s) it applies to. Please limit code length to 
20 lines. Don't forget to include your mailing ad- 
dress, and let us know your compensation prefer- 
ence per published tip: $25, a new one-year VSM 
subscription, or a one-year extension to your exist- 
ing VSM subscription. 

VB.NET 

Level: Intermediate 

Return Strings From an API 

In .NET, strings are immutable: When you pass them out to an API, 
you can't modify them. However, VB.NET applies the VBByRefStr 
unmanaged type-marshaling attribute to the string. This allows 
VB.NET to create a temporary buffer, copy that back to a new 
string, then point the original string to the new string: 

Public Declare Function GetWi ndowText 
Lib "User32.Dll" 
(ByVal hwnd As Int32, 
ByVal IpString As String, 
ByVal cch As Int32) As Int32 

To use this declaration, simply initialize the string to the right size: 

Dim s As String = Space(256) 

Dim rtn as Int32 = GetWi ndowText ( hwnd , s, 256) 

The API declaration is equivalent to: 

Public Declare Function GetWi ndowText 
Lib "User32.Dll" (ByVal hwnd As Int32, 
< System. Runt i me. InteropServices. Marshal As ( _ 
Runtime. InteropServices. UnmanagedType. VBByRefStr)) 
ByRef IpString As String, _ 
ByVal cch As Int32) As Int32 

VB.NET, however, doesn't allow you to specify that marshaling 
attribute on parameters, so you must use the first declaration. Use 
a StringBuilder object as an alternative to using the VBByRefStr 
attribute. 

—Bill McCarthy, Barongarook, Victoria, Australia 



VB4, VB5, VB6 

Level: Beginning 

Count the Number of Elements in an Array 

This function computes the number of elements of any one- 
dimensional array — it sure beats ripping open the SAFEARRAY 
array descriptor. Use it when you're not sure whether an array is 
one- or zero-based: 

Public Function CountEl ements ( 

ByVal SimpleArray As Variant) As Long 
' Ignore error if array not dimensioned 
On Error Resume Next 

If Not IsArray(Simpl eArray ) Then Exit Function 
CountEl ements = Abs( ( LBoundt Simpl eArray ) ) - _ 
( UBoundCSimpl eArray )) ) + 1 
End Function 

— Monte Hansen, Ripon, Calif. 

VB4/32, VB5, VB6 

Level: Beginning 

Extend Registry Functionality 

An (undocumented) feature of VB's native *Setting Registry func- 
tions is that they can create and access multilayer hierarchies such 
as this: 

VB and VBA Project Settings 
Appl i cati on 
PI ugi n 
Secti on 

Subsecti on 

Key - "Value" 

You can do this easily — simply add a "\" character between the 
parent entry and its child entry. Then you can use the Registry as 
you'd use a folder with subfolders. Check out these code examples 
that create and read structures such as the preceding one: 

Call SaveSetti ng( "Appl i cati on\Pl ugi n " , _ 

"Section\Subsection" , "Key", "Value") 
.Print SaveSetti ng( "Appl i cati on\Pl ugi n\Secti on" , _ 

" Subsection", "Key", "Value") 

— Chris Hynes, Fort Washington, Md. 

c# 

Level: Beginning 

Use String Literals to Simplify Paths 

When you need to set a string to a local or network path, use a 
string literal to avoid writing repeating backslashes. For instance, 
this code: 

string sLocalPath = "C : Wdi rectoryWf i 1 e . txt " ; 

string sNetworkPath = 

"WWmachi nenameWdi rectoryWf i 1 e . txt " ; 

Becomes this: 

string sLocalPath - @"C : \di rectory\f i 1 e . txt " ; 
string sNetworkPath = 
@"\\machinename\di recto ry\f 1 1 e . txt" ; 

— Robert Lair, Springboro, Ohio 
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VB5, VB6 

Level: Beginning 

Let VB Spell the Control Name for You 

I love the way VB's IntelliSense drops down a list of control names, 
properties, and methods as soon as I type the period after the 
object's name. But when you're coding in a form's own module and 
referencing the control name directly, without an object qualifier, 
you can still get that cool dropdown list. First type "Me." (with the 
period) and pick the name. Feel free to delete the "Me." qualifier 
later. Here's an example: 

Cal 1 cl s Database. LoadMyLi stBox(Me.Myl i stBox) 
— Frank Ramage, Laurel, Md. 

VB4/32, VB5, VB6, VBS, SQL 7.0 and up 

Level: Intermediate 

Preprocess Nulls in Your Recordset 

I've seen several examples of VB code dealing with nulls in 
recordsets before the value is assigned to a VB control. 1 often use 
the Transact-SQL IsNull statement when working with SQL Server 
(version 7.0 and later) queries. SQL Server uses IsNull to deal with 
the null value if it arises so I don't have to write additional code to 
handle nulls when I process a recordset. For example, in this code 
that reads CustomerlD and EmailAddress from a Customers Table, 
SQL Server returns the value "na" if the EmailAddress field is null: 

set rsCustomerDetai 1 s = en . Execute! "Sel ect " & _ 
"CustomerlD, IsNul 1 ( Emai 1 Address ,' na ' ) as " & 
"EmailAddress from Customers") 

You can't update the recordset because IsNull appears in the 
Select statement. But you'll find many circumstances where this 
doesn't matter, such as when using VBScript to build a table in a 
Web page. 

—Robert Bryan, Downer, Australian Capital Territory, 

Australia 



VB5, VB6 

Level: Intermediate 

Add a Picture Preview Property Page 

Defining a public property in a user control as Picture (or StdPicture) 
provides the standard ellipsis next to the property name in VB's 
property viewer automatically. This pops up a standard dialog to 
load an image control. 

Let's say you have this code in a user control: 

Public Property Get PictureO As Picture 

Set Picture = UserControl . Pi cture 
End Property 

Public Property Set Pi'cturet _ 

ByVal newPicture As Picture) 

Set UserControl . Pi cture = newPicture 

PropertyChanged "Picture" 
End Property 

You can add a standard VB property page to the control that 
provides the standard preview window so you can see what you're 
loading. To do this, you open the UserControl in design mode and 
select the PropertyPages property. You'll see a dialog with three 
or four choices: StandardPicture, StandardFont, StandardColor, 
and (for VB6) StandardDataFormat. Simply check the ones you 
wish to have a custom property added to the UserControl's other 
properties. Note: Just because you add the property pages doesn't 
mean you can access them immediately. You need to assign the 
page to specific properties using the Procedure Attributes dialog. 

— John Cullen, Pedroucos, Portugal 



VB6 

Level: Intermediate 

Split Strings Cleanly, Redux 

In the 10 th Edition of the "101 Tech Tips for VB Developers" 
supplement [Visual Basic Programmer's Journal February 2000], 
the "Split Strings Cleanly" function splits an array containing more 
than one delimiter in a row efficiently. This functions works great 
for one delimiter, but what if you want to split an array on more 
than one delimiter? Adding a few lines of code and using recursion 
can enhance the function to handle multiple delimiters. 

When more than one delimiter is passed into the function, you 
rejoin the filtered array using the next delimiter, drop the current 
delimiter from the delimiter list, and call the function again: 

Public Function CleanSplit2( _ 
ByVal Expression As String, _ 
Optional ByVal Delimiters As String = " ", _ 
Optional ByVal Limit As Long = -1, _ 
Optional Compare As VbCompareMethod - _ 
vbBinaryCompare) As Variant 

Dim SubstringsO As String 
Dim OneDelimiter As String 
Dim I As Long 

OneDelimiter = Mi d$( Del imiters , 1, 1) 
Substrings - Spl i t ( Expressi on , OneDelimiter, _ 

Limit, Compare) 
For I = LBoundtSubstri ngs ) To UBound( Substri ngs ) 

If LenCSubstri ngs( I ) ) = Then 
Substri ngs ( I ) = OneDelimiter 

End If 
Next I 

If Len(Del imiters) = 1 Then 
CleanSpli't2 = Filtert 

Substrings, OneDelimiter, False) 

Else 

CleanSplit2 - _ 

CleanSplit2(Join( _ 

Fi 1 ter (Substri ngs , OneDelimiter, False), _ 
Mid${Deli'miters, 2, 1 ) ) , 
MidKDelimiters, 2), Limit, Compare) 

End If 
End Function 

— Stephen Sayabalian, Waltham, Mass. 

VB3, VB4, VB5, VB6 

Level: Intermediate 

Keep Your Projects Intact 

VB has always gone out of its way to take care of mundane 
housekeeping tasks without bothering you with the details. But 
sometimes the best intentions can create unintended problems. 
When you work with a project, VB automatically keeps track of the 
project's files by maintaining their entries in the VBP project file 
(MAK in VB3). When you move files around or bring in files from 
other projects, VB edits the path information for those files, 
sometimes creating an incomprehensible mess of upward-moving 
relative paths littered with "\..\" steps. The result can be cata- 
strophic — you can inadvertently edit a different project's source 
code, or you can end up missing files when you move a project to 
another directory or computer. To avoid these problems, first 
make sure all your working files are in the directories you in- 
tended, then edit the VBP file manually in Notepad to remove any 
visually ambiguous path descriptions. Make sure you exit the VB 
IDE before editing the VBP file. 

— Ron Schwarz, Hart, Mich. 
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VB3, VB4, VB5, VB6 

Level: Beginning 

A New Look at the Select Case 

Who says the Select Case can evaluate only one statement? Try 
Select Case True instead of the If...ElseIf...End If blocks. Select 
Case's more eloquent style makes code easier to read, write, and 
maintain. Consider both these routines that reset the controls on 
a form: 

1 If. . . El self . . .End If Version 
Public Sub If ResetFornU f rmForm As Form) 
Dim c As Control 

For Each c In f rmForm. Control s 
If TypeOf c Is TextBox Then 

c.Text = "" 
El self TypeOf c Is ComboBox Then 
c. Listlndex = -1 

If c. Style <> vbComboDropdownLi st Then 

c . Text = " " 
End If 

El self TypeOf c Is ListBox Then 

c. Listlndex = -1 
El self TypeOf c Is CheckBox Then 

c . Val ue - vbUnchecked 
El self TypeOf c Is OptionButton Then 

c . Val ue = Fal se 
End If 
Next c 
End Sub 

' Select Case True Version 
Public Sub Sel ResetFornU f rmForm As Form) 
Dim c As Control 

For Each c In f rmForm. Control s 
Select Case True 

Case TypeOf c Is TextBox 

c.Text - "" 
Case TypeOf c Is ComboBox 
c. Li stlndex = - 1 

If c. Style <> vbComboDropdownLi st Then 

c.Text = "" 
End If 

Case TypeOf c Is ListBox 

c.Li stlndex = -1 
Case TypeOf c Is CheckBox 

c . Val ue = vbUnchecked 
Case TypeOf c Is OptionButton 
c . Val ue - Fal se 
End Select 
Next c 
End Sub 

The Select Case True routine is easy to read and debug, whereas 
the If...Elself...End If routine gives the impression of nesting and 
might be more difficult to evaluate at a glance. The Select Case 
True executes the code block of the first true statement it encoun- 
ters; however, code tends to flow better when you construct a list 
of Case statements rather than a series of Elself blocks. 

—Michael C. Stahr, Oxford, Ohio 



VB4/32, VB5, VB6, SQL Server 6.5 and up, Oracle 8/ and up 

Level: Intermediate 

Change Oracle and SQL Server Passwords 

You can change database passwords from within VB to control 
more of your application's security and limit your dependence on 
an external DBA. This function updates a database password for 
either Oracle or SQL Server: 

Function UpdateLogi n(pbOracl e As Boolean, 



padoConn as AOODB . Connecti on , _ 
pstrUserld As String, _ 
pstrCurPassword As String, _ 
pstrNewPassword As String) As Boolean 

Dim strSQL As String 
On Error GoTo ErrHandler 
UpdateLogin = True 
If (pbOracle) Then 

strSQL = "ALTER USER " I pstrUserld & _ 
" IDENTIFIED BY " & pstrNewPassword 

Else 

strSQL = "sp_password '" & _ 
pstrCurPassword & "', '" & _ 
pstrNewPassword & 

End If 

padoConn . Execute strSQL 

Exit Function 
ErrHandl er : 

UpdateLogi n - Fal se 

Exit Function 
End Function 

To use this, you should connect to the database using the account 
you're changing. 

— Andy Clark, Richmond, Va. 

VB4/32, VB5, VB6, VBA, VBS 

Level: Intermediate 

Generate OLE DB Connection Strings 

Many VB projects need a database connection string. But there's 
no easy way to generate an OLE DB connection string without 
adding a DataEnvironment to your project, setting the values on 
the Data Link Properties dialog by selecting Properties from the 
Connectionl object context menu, and finally retrieving the value 
in the ConnectionSource property as your connection string. 

For a better way, simply paste these nine lines of code into 
a text file with a VBS (VBScript) extension, and double-click on 
the file: 

Dim oDataLinks, sRetVal 

Set oDataLinks = CreateObject( "DataLi nks " ) 
On Error Resume Next ' Trap Cancel button 
sRetVal = oDataLi nks . PromptNew 
On Error Goto 

If Not IsEmptytsRetVal ) Then ' Didn't click Cancel 
InputBox "Your Connection String is listed below.", _ 
"OLEDB Connection String", sRetVal 

End If 

Set oDataLinks = Nothing 

Follow the usual prompts to place the resulting connection string 
in an input box for easy cut-and-pasting. Now any time you need a 
connection string for an OLE DB data source, it's only a double- 
click away. 

Note: If you 're using VB, you can add a reference to the Microsoft 
OLEDB Service Component 1. Type Library (OLEDB32. dll)and use 
the Object Browser to explore the additional interfaces the DataLinks 

object exposes. 

— Anthony T. Petro, Centennial, Colo. 

VB6 

Level: Advanced 

Continue After Hitting an Error 

If you use VB6 to write COM programs that raise errors, it seems 
impossible to continue after hitting one of them. However, the 
(almost undocumented) commands ALT+F8 and ALT+F5 let you 
step and run past an error, respectively, into the error-handling 
code or — more importantly — into the code that called the proce- 
dure where the error occurred (such as a C++ client). This can be 
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a real lifesaver if you're coding in both C++ and VB and the 
programs have to play nicely. You can directly receive error 
results raised in the VB code instead of hacking around it by setting 
breakpoints in the client, setting the next line of execution to 
something that returns to the caller, and using the debugger to 
save the error code into a variable on the client. Why the "run," 
"step over," and similar buttons don't do what ALT+F8 and ALT+F5 
do is beyond me. 

—Michael Nyman, Tualatin, Ore. 

VB5, VB6 

Level: Beginning 

Generate Rule-Based Random Strings 

Use this function to generate random strings that abide by certain 
criteria. It's perfect for password generators or strings used in a 
challenge/response authentication scheme: 

Public Enum RandomStri ngOpti ons 

rsoAl IChars = 

rsoAHCharsExtended - 1 

rsoKeyboardChars = 2 

rsoAl phaNumeri cChars = 3 
End Enum 

Public Function RandomStringtOptional ByVal 
MinLength As Long = 20. _ 
Optional ByVal MaxLength As Long = 29, 
Optional ByVal Excl usionCharacters As String =_ 
" ", Optional ByVal RandomOption As 
RandomStringOptions = rsoAl phaNumeri cChars ) 
As String 



Generates a random string using ... 
Max/MinLength: Determines the minimum and 
maximum size of the string. 
ExclusionCharacters: Characters that cannot 
appear in the random string. 
RandomOption: Special options used to define 
additional rules. 



' Where random string is built 

Dim Buffer! ) As Byte 

' Next character to test 

Dim NextChar As Byte 

' The lower range of the char table 

Dim iCharLo As Integer 

' The upper range of the char table 

Dim iCharHi As Integer 

Dim i As Long 

' Sanity check 

If MinLength < 1 Or MaxLength < MinLength Then 

Err. Raise 5, App. ProductName 
End If 

If RandomOption = rsoKeyboardChars Then 

' -- only keyboard characters are supported 
' Characters 32 through 126 are keyboard 
' characters 

iCharLo - 32: iCharHi = 126 
El self RandomOption = rsoAl phaNumeri cChars Then 
' This range included entire alphanumeric 
' characters 

iCharLo = 48: iCharHi - 122 
El self RandomOption = rsoAl 1 CharsExtended Then 

' -- we can use the entire "standard" ascii 

' character set 

iCharlo = 0: iCharHi = 127 
Else ' RandomOption - rsoAllChars 

' -- we can use the entire character set, 

' including extended characters 

iCharLo = 0: iCharHi = 255 



End If 

' Fire up the random number generator 
Randomize Timer 

1 Size the buffer to fit a random number size 
' within the desired string length range. 
ReDim Bufferd To Int( (MaxLength - MinLength _ 
+ 1) * Rnd + MinLength)) 

' Loop through the output buffer 
For i = LBound(Buffer) To UBound(Buffer) 
' Loop until "good" character is selected 

Do 

' Get a random character in the character 
' set range 

NextChar = Int((iCharHi - iCharLo + 1) * _ 
Rnd + iCharLo) 

' Make sure not in exclusion list 
If InStr( Excl usionCharacters , _ 

Chr(NextChar) ) - Then 

' Check if Al phaNumeri c? 

If RandomOption - rsoAl phaNumeri cChars _ 
Then 

Select Case NextChar 

Case 48 To 57, 65 To 90, 97 To 122 

1 within the alphanumeric range 

' of characters 

Exit Do 
Case Else 

' just keep on looping until 

' alphanumeric 

' character generated. 
End Select 
El se 

1 we have a non-excluded char 
Exit Do 
End If 
End If 
Loop 

' Assign this char, and get next 
Bufferd' ) = NextChar 
Next i 

' Return the resulting string 
RandomString = StrConv(Buffer, vbUnicode) 
End Function 

— Monte Hansen, Ripon, Calif. 

c# 

Level: Beginning 

Close a Windows Form 

A Close button, which closes a form when the user clicks on it, is 
one of the most common interface controls added to a Windows 
form. Unfortunately, the wizard does not generate the code for 
you, so you must do it manually. Add a button to the form; set its 
text to Close, Cancel, or Exit; and give it a meaningful name such 
as m_CloseButton. Next, create a Click event method handler 
(such as OnCloseButtonClick) and add a new delegate, initialized 
with that handler to the Close button's Click event: 

public class MyForm : Form 

I 

protected Button m_Cl oseButton ; 

publ ic MyForm( ) 

1 

Initial izeComponent! ) : 
Cancsl Button - m_Cl oseButton ; 

) 

private void Initial izeComponentt ) 
( 

m_CloseButton - new Button! ); 
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m_Cl oseButton . Click += 

new EventHandler(OnCloseButtonClick); 
Control s .Add (m_Cl oseButton ) ; 

1 

protected void OnCl oseButtonCl i ck( object sender, 
EventArgs e) 
1 

Closet); //calls Dispose!) for you as well 

1 

1 

You can also double-click on the Close button in the visual 
designer and let Visual Studio.NET generate this code for you. 
In your Close button Click event handler, simply call your base 
class (System.Windows. Forms. Form) Close() method to close 
the form. In addition to closing the form, the Form.Close() 
implementation also calls Dispose() for you, so you don't need to 
call it explicitly yourself. 

Finally, you need to handle the event of the user hitting the 
Escape key. The convention in Windows is that this action should 
close the form, just as if the user clicked on the Close button. In 
your form constructor, after the call to InitializeComponent( ), set 
your base class CancelButton property to the Close button you 
just added. This will redirect the Escape event to your button, as 
if the user clicked on it. 

— Juval Lowy, San Jose, Calif, 
author of COM+ Services ■ Mastering COM and .NET 
Component Services [O'Reilly, 2001] 

VB6, SQL Server 6.5 and up 

Level: Intermediate 

Let MTS Handle Transaction Management 

When you call a stored procedure in SQL Server that performs data 
manipulation on the database from a Microsoft Transaction Server 
(MTS) transaction, let MTS handle all the transaction manage- 
ment. Don't put a BEGIN TRANSACTION I COMMIT TRANSACTION I 
ROLLBACK TRANSACTION in the stored procedure. The transac- 
tion you create in the stored procedure doesn't enlist in the MTS 
transaction, so MTS isn't notified when you handle the SQL errors 
manually. This means an error in your stored procedure won't 
force the rollback of the MTS transaction's other parts. The MTS 
transaction returns a success notification even when part of the 
transaction failed. 

— Jason Rein, Thompson's Station, Term. 

VB4/32, VB5, VB6 

Level: Beginning 

Return File Version Info 

Regarding the "Retrieve File Version Information" tip in the 11 th 
Edition of the "101 Tech Tips for VB Developers" supplement 
[Visual Basic Programmer's Journal March 2001], I have a shorter 
function that achieves the same task. To use the FileSystemObject, 
you need to reference the Microsoft Scripting Runtime: 

Public Function GetExecutabl eFi 1 eVersi on( ByVal 
Filename As String) As String 
Dim FileObj As Scri pti ng . Fi 1 eSystemObject 

' Create Object 

Set FileObj - New Scri pti ng . Fi 1 eSystemObject 

If Fi 1 eObj . Fi 1 eExi sts( Fi 1 ename) Then 
GetExecutabl eFi 1 eVersi on = 

Fi 1 eObj . GetFi 1 eVersi on ( Fi 1 ename) 

End If 

' Free Object 
Set FileObj = Nothing 
End Function 

— Simon Murrell, Bedfordview, Gauteng, South Africa 



VB4/32,VB5,VB6,VBS _______|_____ 

Level: Intermediate ■^MH^MO^I^aHwQU3 

Create ISAM Files Out of Thin Air 

Visual Basic Programmer's Journal once published a tip on how to 
use undocumented Jet/SQL features to create a new ISAM file in 
the format of your choice — such as Excel, dBase, Paradox, HTML, 
and Lotus — without having to use automation with the object 
model or even having the destination file type's application on the 
user's machine [ "Export Data to ISAM Databases," 6 th Edition of the 
"101 Tech Tips for VB Developers" supplement, Visual Basic 
Programmer's Journal February 1998]. 

Microsoft still says that method doesn't exist. Here's another 
it says doesn't exist, but it does as of ADO/ADOX 2.1. Start a new 
VB project and add a reference to ADO and ADOX (Microsoft ADO 
Extensions for DDL and Security): 

Dim cn As Connection 

Dim cat As Catalog 

Dim tbl As Table 

Dim fid As Column 

Set cr, - New Connection 

With cn 

. Connect: onStri ng - _ 

"Provider=Microsoft.Jet.0LEDB.4.0:" & _ 
"Extended Properti es=Excel 8.0:Data Source-" _ 
& App.Path & "\anewfile.xls" 
. Open 

End With 

Set cat = New Catalog 
With cat 

. Acti veConnecti on = cn 

Set tbl - New Table 

tbl. Name = "ANewSheet" 

Set fid - New Column 

fid. Name - "MyColl" 

fid. Type = adWChar 

fld.DefinedSize = 30 

tbl .Columns. Append fid 

.Tabl es .Append tbl 

Set tbl = New Table 
tbl .Name = "Another" 
Set fid = New Col umn 
fid. Name = "Wubba" 
fid. Type = adWChar 
fld.DefinedSize - 10 
tbl .Col umns . Append fid 
. Tabl es .Append tbl 

cat .Tab I es . Refresh 
End With 

Set fid = Nothing 
Set tbl - Nothing 
Set cat = Nothing 
cn. Close 

Set cn = Nothing 

Run it to see your Excel file created with a Worksheet named 
NewSheet and a column named/typed as you specified. 

Use this to wow your users with multisheet reports. Once you 
create the sheets, you can use ADO to connect to the files and 
manipulate them as you would any other ADO data source. But the 
coolness of this technique lies not in the fact that you can manipu- 
late an ISAM data source once you have one on your machine — 
that has always been easy. Thecoolnessisthe ability to create the 
files out of thin air in the first place using only ADO. 

Like the original SQL method, this approach creates most 
other ISAMs too. Simply replace the Extended Properties^ value 
with the specifier you desire, such as Extended Properties=dBase 
IV;, Extended Properties=Paradox 4.x;, and so on. 

— Robert Smith, Kirkland, Wash. 
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For Visual Studio Developers 



VB3, VB4, VB5, VB6 

Level: Beginning 

Tweak the Key and Mouse Events 

Many VB objects have KeyDown, KeyUp, MouseDown, MouseUp, 
and MouseMove events. They're unique in one respect: They have 
built-in limitations on what they're able to do. You often need to 
coordinate these events with things outside their immediate 
scope to use them effectively. For example, you might need your 
app to perform a repetitive action while a mouse button is down. 

The MouseDown event fires only once — when the button is 
clicked — so you can't determine the mouse state outside the 
MouseDown event easily. Handle these situations by using a 
variable with sufficient scope to address the required code. For 
example, if you're coding all the mouse-oriented functionality 
within the form that contains the control in question, declare a 
form-level Boolean variable and use it to track the mouse's state. 
Set the variable to True when the MouseDown event fires, and to 
False when the MouseUp event fires. When your code executes, 
have it check the mouse state by testing the variable's current 
value. The Mouse events then maintain the variable's state auto- 
matically, and you can track the variables', hence the mouse, state 
from outside the mouse events. 

— Ron Schwarz, Hart, Mich. 

VB5, VB6 

Level: Advanced 

Get Dynamic Array Information 

Use the GetSafeArraylnfo function to rip the lid off a SAFEARRAY. 
It allows the caller to identify the number of dimensions and 
number of elements for each dimension (among other things). 
Element information for each dimension is stored in a one-based 
subarray of SAFEARRAYBOUND structures (rgsabound): 

Public Type SAFEARRAYBOUND 

' # of elements in the array dimension 
cElements As Long 

' lower bounds of the array dimension 
1 Lbound As Long 
End Type 

Public Type SAFEARRAY 

' Count of dimensions in this array. 

cDims As Integer 

' Flags used by the SafeArray 

' routines documented below. 

fFeatures As Integer 

' Size of an element of the array. 

' Does not include size of 

' pointed-to data. 

cbElements As Long 

' Number of times the array has been 

' locked without corresponding unlock. 

cLocks As Long 

' Pointer to the data. 

' Should be sized to cDims: 

pvData As Long 

' One bound for each dimension. 
rgsaboundO As SAFEARRAYBOUND 
End Type 

Private Declare Sub CopyMemory Lib "kernel32" Alias 
"RtlMoveMemory" (ByVal lpDest As Long, ByVal 
IpSource As Long, ByVal nBytes As Long) 

Public Function GetSafeArraylnfotTheArray As 
Variant, Arraylnfo As SAFEARRAY) As Boolean 



Fills a SAFEARRAY structure for the array. 
TheArray: The array to get information on. 
Arraylnfo: The output SAFEARRAY structure. 
RETURNS: True if the array is instantiated 



' Pointer to the variants data item 
Dim lpData As Long 

1 the VARTYPE member of the VARIANT structure 

Dim VType As Integer 

Const VT_BY REF As Long = &H4000& 

' Exit if no array supplied 

If Not IsArray(TheArray) Then Exit Function 

With Arraylnfo 

' Get the VARTYPE value from the first 2 bytes 
' of the VARIANT structure 
CopyMemory ByVal Va rPtr ( VType ) , ByVal 
VarPtr(TheArray) , 2 

' Get the pointer to the array descriptor 
' (SAFEARRAY structure) 
' NOTE: A Variant's descriptor, padding & 
' union take up 8 bytes. 
CopyMemory ByVal VarPtr( 1 pData ) , ByVal 
(VarPtr(TheArray) + 8) , 4 

' Test if lpData is a pointer or a pointer to 

' a pointer. 

If (VType And VTJYREF) <> Then 

' Get real pointer to the array descriptor 

' (SAFEARRAY structure) 

CopyMemory ByVal VarPtr( 1 pData ) , ByVal 
lpData, 4 

' This will be zero if array not 

' dimensioned yet 

If lpData = Then Exit Function 
End If 

' Fill the SAFEARRAY structure with the array 
' i nf o 

' NOTE: The fixed part of the SAFEARRAY 
' structure is 16 bytes. 

CopyMemory ByVal VarPtr( Array Info . cDi ms ) , _ 
ByVal lpData, 16 

' Ensure the array has been dimensioned before 
' getting SAFEARRAYBOUND information 
If Arraylnfo. cDims > Then 

' Size the array to fit the f of bounds 

ReDim .rgsaboundd To .cDims) 

' Fill the SAFEARRAYBOUND structure with 
' the array info 

CopyMemory ByVal VarPtrt . rgsaboundt 1 ) ) , _ 
ByVal lpData + 16, 

Arraylnfo. cDims * Len( . rgsabound ( 1 ) ) 

' So caller knows there is information 
' available for the array in output 
' SAFEARRAY 

GetSafeArraylnfo = True 
End If 
End With 
End Function 

— Monte Hansen, Rlpon, Calif. 
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For even more tricks and tips go to 
www.vbpj.com or www.vcdj.com 



VB4/32, VB5, VB6, SQL Server 6.5 and up, Oracle 8/ and up 

Level: Intermediate 

Compare Oracle and SQL Server Strings 

Oracle and SQL Server treat strings slightly differently — they don't 
trim blank and null characters identically. So you'll have problems 
comparing string data between Oracle and SQL Server. The solu- 
tion — trim both blanks and nulls from all strings: 

Private Function MatchStrings(adoFldOra As _ 

ADODB. Field, adoFl dSQLServ As _ 

ADODB. Field) As Boolean 
Dim strOracle As String 
Dim strSQLServ As String 

strOracle = Tri mNul 1 s( adoFl dOra . Val ue) 

strSQLServ - TrimNul 1 s{ adoFl dSQLServ . Val ue ) 

MatchStrings = (strOracle = strSQLServ) 
End Function 

Private Function TrimNul 1 s ( pstrln As String) As _ 

Stri ng 
Dim ndx As Integer 
Dim pos As Integer 
Dim strWork As String 

strWork = "" 

pos = 

ndx == 1 

Do While ((pos = 0) And (ndx <= Len(pstrln) ) ) 
If (Asc(Mid(pstrIn. ndx, 1 ) ) <> 0) _ 
And (MidCpstrln. ndx, 1) <> " ") Then 
pos = ndx 
End If 

ndx = ndx + 1 
Loop 

If (pos = 0) Then 

TrimNul Is = 

Exit Function 
End If 

strWork = Mid(pstrln, pos) 
ndx - Len(strWork) 
pos = 

Do While ((pos = 0) And (ndx > 0)) 

If (Asc(Mid(pstrIn, ndx, 1) <> 0) And _ 

(Midtpstrln, ndx, 1) <> " ")) Then 

pos - ndx 
End If 

ndx = ndx - 1 
Loop 

If (pos = 0) Then 

TrimNul Is = 

Exit Function 
End If 

TrimNulls - LefttstrWork, pos) 
End Function 

— Andy Clark, Richmond, Va. 

VB.NET 

Level: Beginning 

Clarify Procedure Attributes With Line Continuation 

Add readability to your attribute assignments by placing them on 
their own line with an underscore line-continuation character: 

<0bsol ete( "Use NewCalc instead" ,True)> 
Public Sub CalcO 

End Sub 



VB.NET, C# 

Level: Beginning 

Reading Console Output When Working in the IDE 

When you run a console from the IDE, the console often disappears 
before you get the chance to view the output. You can work around 
this by using Console.ReadO to pause the program until you hit 
the Enter key. 

VB.NET: 

Console. WriteLine( "Press Enter to close this window") 
Consol e . Read( ) 

C#: 

Console. WriteLine( "Press Enter to close this window"); 
Consol e . Read( ) 

You can also change the build output type to Windows Applica- 
tion. When you change a console application's output type to 
Windows Application, the console's output gets redirected to 
the IDE's output window where you can view the output after 
the application has finished running as well as while the applica- 
tion is running. 

— Jonathan Goodyear, Orlando, Fla. 

SQL Server 6.5 and up 

Level: Beginning 

Find the Cause of Query Malfunctions 

When debugging a SELECT query, add an absolute true condition 
as the first condition of the WHERE clause: 

SELECT 

au_l name , 

au_f name 
FROM 

authors 
WHERE 

1=1 --absolute true condition 
and state = 'CA' 
and contract - 1 

That way, you can comment out one or more of the real conditions 
in the WHERE clause using the "- -" comment character sequence to 
narrow down which condition(s) cause the query to malfunction. 
When you're done debugging your query, remove the absolute true 
condition as well as the "and" in front of the first real condition. 

— Jonathan Goodyear, Orlando, Fla. 

VB.NET 

Level: Beginning 

Know the Differences Between CStr and .ToSf ring 

VB.NET's CStr() method is locale-aware, which means it uses the 
locale at run time to determine how to format the string. The 
.ToString method is locale-neutral and is generally quicker. If you 
need to format strings according to the end user's regional set- 
tings, use CStr. Otherwise, use .ToString, which works on all 
objects. CStr works only on objects that implement IFormattable. 

Note: Neither works exactly like VB5/6 CStr, which returns a 
localized string based on compile-time settings. 

— Bill McCarthy, Barongarook, Victoria, Australia 



— Jonathan Goodyear, Orlando, Fla. 
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For Visual Studio Developers 



VBS, ASP/IIS 4.0 and up 

Level: Intermediate 

Upload Files to Active Server Pages 

Many companies sell ActiveX objects for uploading files to Active 
Server Pages. However, you can easily write a bit of VBScript to handle 
the uploads yourself. The Request object has all the uploaded data: 

<!-- 

HTML for the upload form 
'upl oadform.html ' 

--> 

<html><body> 

<form action="upload.asp" method="post" 

enctype-"mul ti part/form- data" > 

<input type-file name-"filel" size-20Xbr> 

<input type=file name="fi1e2" size-20Xbr> 

<input type=submit> 

</body></html> 

<! -- 

ASP Code for the upload 
' upl oad . asp ! 

--> 

<htmlXbody> 
<% 

' This code is needed to "initialize" the 
' retrieved data 
Dim q 

q - Chr(34) 
' All data 

Dim aAllDataB, aAllData, x, aHdr 
aAHDataB = Request . Bi na ryRead ( Request . Total Bytes ) 
' It comes in as Unicode, so convert it to ascii 
For x = 1 To LenB(aAllDataB) 

aAllData = aAllData & Chr(AscB(MidB( 
aAllDataB, x, 1))) 

Next 

' The "header" is a unique string generated by the 
' system to indicate the beginning 
' and end of f i 1 e data 

aHdr - LefttaAllData, InstrtaAl 1 Data, vbCrLf )+l ) 



' Here's where your code goes. 

' In this example, " f i lei" and "file2" are the 

' field names specified within the form of the 

' upload submission page. 

Response. Write "filel: Filename = " & _ 

GetFilenameC'filel") & "<br>" 
Response. Write GetFi 1 eData( "f i 1 el " ) & "<brXbr>" 

Response. Write "file2: Filename = " & _ 

GetFilename("file2") & "<br>" 
Response. Write GetFi 1 eData ( "fi 1 e2" ) & "<brXbr>" 

' Writing out the file data like this only looks 
' OK when the uploaded file is some kind of text 
' - images and things like that probably just need 
' to be saved or otherwise acted upon. 
Response. Write Repl ace( aAl 1 Data . vbCrLf , "<br>" ) 

Dim aFilename 

' aFilename equates to the original filename, 
' except saved in the root path of the server. 
' The root path must have Change rights for the 
' default Internet user. 
aFilename = Server. MapPatht "\" ) & "\" & 

GetFileNameC'filel") 
Call SaveFi 1 e( "f i 1 el " , aFilename) 
aFilename = Server. MapPath( "\ " ) & "\" & 

GetFileName("file2") 
Call SaveFi 1 e( "fi 1 e2" , aFilename) 



%> 

</bodyX/html> 
<% 

' These are functions used to retrieve the data 
Function GetFileName(aField) 
Dim x2. i 

x = Instr(aAllData, aHdr «, _ 

"Content-Disposition: form-data; name=" &_ 

q & afield & q) 
x = Instrtx. aAllData, "filename-" & q) 
x2 - Instrtx, aAllData, vbCrLf) 
For i = x2 To x Step -1 

If MidtaAllData.i ,1) = "\" Then 
x = i - 9 
Exit For 

End If 
Next 

GetFileName - Mi d( aAl 1 Data , x+10, x2-(x+ll)) 
End Function 

Function GetFi 1 eData ( a Fi el d ) 
Dim x2 

x = InstrCaAl 1 Data , aHdr & _ 

"Content-Disposition: form-data; name=" &_ 

q & aField & q) 
x = Instrtx, aAllData. vbCrLf) 
x = Instr(x+1, aAllData, vbCrLf) 
x = Instr(x+1, aAllData, vbCrLf) + 2 
x2 = Instrtx, aAllData, Lef t ( aHdr , Len ( aHdr ) - 2 ) ) 
GetFileData = Mi dtaAl 1 Data , x+2, x2-x-4) 
End Function 

Function SaveFi letaFiel d , aFilename) 
Dim FSO. TS 
Set FSO - _ 

server. CreateObjectt _ 

"Scripti ng . Fi 1 eSystemObject" ) 
Set TS - FSO . CreateTextFi 1 e( a F i 1 ename , True, _ 

False) 

TS. Write GetFi 1 eData ( aFi el d) 
TS. Close 

Set TS = Nothing 
Set FSO - Nothing 
End Function 



—Matt Hart, Tulsa, Okla. 

c# 

Level: Beginning 

Format a Number in a String 

If you want to format a number in a string so it's in hexadecimal 
format rather than decimal, use the Format method for the data type: 

int I = 123: 

Console. WriteLine ( 
"decimal i - " + i + 
" hexadecimal i = " + 
int.Formatti , "x8")); 

The number after thextells Format how many digits to display, 
adding zeros to pad out the number of digits you specify. Here's 
the output from this line: 

decimal i - 123 
hexadecimal i = 0000007b 

— Andy Harding, Kirkland, Wash. 
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VB3, VB4, VB5, VB6 

Level: Beginning 

Loop Using GetTickCount or timeGetTime 

This TickDiff function returns the difference of two calls to 
GetTickCount or timeGetTime, taking into account things such as 
VB's two's complement as well as wrapping by the operating 
system: 

#11 Win32 Then 

Private Declare Function GetTickCount _ 
Lib "kerne!32" () As Long 

#Else 

Private Declare Function GetTickCount _ 
Lib "User" () As Long 
#End If 

Publ i c Sub Sampl eLoopt ) 

Dim TickStart As Currency 
TickStart = GetTi ckCountt ) 
' Loop for 5 seconds 

Do While Ti ckDi f f (Ti ckStart , GetTi ckCountt ) ) _ 

< 5000 

' loop code here 
Loop 
End Sub 

Public Function TickDifft _ 

ByVal TickStart As Currency, _ 
ByVal TickEnd As Currency) As Long 

1 CCur(2 A 32) 

Const TwoToThe32nd As Currency - 4294967296® 

' Handle two's complement for values larger than 

' 2147483647& 

If TickStart < Then 

TickStart - TickStart + TwoToThe32nd 
End If 

' Handle two's complement AND the case where 
' timeGetTime/GetTickCount wraps at (2 A 32)ms. 
' or -49.7 days: 

If (TickEnd < 0) Or (TickEnd < TickStart) Then 

TickEnd - TickEnd + TwoToThe32nd 
End If 

' Return the result 
TickDiff - TickEnd - TickStart 
End Function 

— Monte Hansen, Ripon, Calif. 

VS.NET 

Level: Beginning 

Work With Miscellaneous Files 

Visual Studio.NET has a miscellaneous files feature that allows you 
to create links to other files in Solution Explorer. The files are not 
added to your project or copied to the project folder. This comes 
in handy if you want to refer to some reference document while 
working on a project, such as a readme file, or when you're writing 
API declarations. You can use the Find in Files features of VS.NET 
to locate the .h (C/C++ Header file) that has the functions and 
constants declared. Double-click on the file in the results to add it 
to your miscellaneous files. 

The miscellaneous files will contain links to them from Solution 
Explorer the next time you open the project. To enable this, you 
need to turn on the miscellaneous files option and set the limit for 
how many files should be remembered per solution. To do this, 
you select Tools I Options 1 Environment I Documents and check 
the Show Miscellaneous Files feature. Then type in the number of 
files to remember (between and 256 per solution). 

—Bill McCarthy, Barongarook, Victoria, Australia 



VB6, SQL Server 7.0 and up 

Level: Advanced 

Prevent SQL Server From Returning Record Counts 

If you're calling a stored procedure from a Microsoft Transaction 
Server (MTS) transaction and that stored procedure performs 
several actions before completing, SQL Server returns a count of 
affected records for each action. If an error occurs after the first 
record count is returned, the MTS transaction won't acknowledge 
the error because it sees the record count returned as a success 
message. To alleviate this problem, put "SET NOCOUNT ON" at the 
top of the stored procedure. Setting this option prevents SQL 
Server from returning record counts. 

This example will not return an error to an MTS transaction: 

USE Northwind 
GO 

CREATE PROCEDURE sp_TestMTSNoError 

AS 
/* 

** This query returns a count of affected record equal to 1. 

*/ 

UPDATE Orders 

SET EmployeelD = 5 

WHERE OrderlD = 10248 

/* 

** This query generates a 'Divide by Zero' error. 

*/ 

SELECT 1/0 

GO 

/* 

** Running this in Query Analyzer will show an error. 

*t 

EXECUTE sp_TestMTSNoError 
Returns : 

(1 row(s) affected) 

Server: Msg 8134, Level 16, State I, Procedure 
sp_TestMTSNoError , Line 16 
Divide by zero error encountered. 

An MTS transaction won't see the error message returned by this 
query unless you apply the "SET NOCOUNT ON" option. 

— Jason Rein, Thompson's Station, Tenn. 

VB4, VB5, VB6 

Level: Beginning 

Tiling Made Easy 

Use this method whenever you need a tiled background on your 
forms. All you need is an Image control with its Visible property set 
to False, and a graphic in its Picture property. Set the form's 
AutoRedraw property to False and place this code inside the 
Form_Paint event: 

Private Sub Form_Paint() 
Dim X As Single 
Dim Y As Single 

For Y = To Me . Seal eHei ght Step Imagel . Hei ght 
For X = To Me.ScaleWidth Step Imagel. Width 
Me. PaintPi cture Imagel . Pi cture , X, Y 

Next X 
Next Y 
End Sub 

This code tiles within a PictureBox control as well. Simply replace 
Me with the name of the PictureBox. 

— Brian McDonald, Covington, Ky. 
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XML, .NET beta 1 and up 

Level: Beginning ^XSXZJLjJS|KLLLy^UQ 

Read XML Documents Efficiently 

In applications where you need to read XML documents in the most 
efficient manner possible, consider using the XmlTextReader class 
rather than the XmlDocument class. The XmlTextReader is astream 
that allows tokens found in the source XML document to be read in 
a forward-only manner without loading the entire XML document 
into memory as with the DOM. Although at first glance this might 
seem similar to Simple API for XML (SAX), the XmlTextReader 
exposes a pull model rather than the push model found in SAX. The 
pull model offers many performance benefits. Using the 
XmlTextReader in an ASPX page is as simple as calling the read() 
method (you must reference the System.Xml namespace): 

XmlTextReader reader = new 

XmlTextReaderf Server. Ma pPath( "my file.xml")); 
while ( reader . Read( ) ) { 

if ( reader . NodeType — Xml NodeType. Element) I 
Response .Wri te( " Found an ElementKbr />"!; 
if ( reader . HasAttri butes () ) I 

while ( reader . MoveToNextAttributet ) ) I 
Response. Writet 

"  Found an AttributeKbr />"); 

I 

) 

I 

I 

// Make sure you close the stream to prevent file locking 
reader. Closet ) ; 

— Dan Wahlin, Chandler, Ariz. 

VB5, VB6, SQL Server 7.0 and up 

Level: Intermediate 

Execute a Temporary SQL Stored Procedure 

If a user doesn't have permission to create a stored procedure in 
SQL Server (version 7.0 or later), he or she can still use ADO to 
create a temporary stored procedure and execute it from VB: 

Dim cmd As ADODB . Command 
Dim conn As ADODB . Connect! on 
Set conn = New ADODB. Connection 
Set cmd = Mew ADODB . Command 

' Replace the connection string values below as 
' required. 

conn. Open "Provider=SQLOLEDB;Data" 8. 

" Source=MyDataSource ; Ini ti al " & 

" Catalog=InitialCatalog; User" & 

" ID=userID ; Password=password" 
strCmd = "SELECT Customers . Customer I D . OrderlD," & 

" ContactName INTO #tempTable FROM Customers" & _ 

" INNER Join Orders ON Orders . Customer I D =" & 

" Customers . Customer I D" 
cmd . Acti veConnecti on = conn 
cmd.CommandText = strCmd 
cmd.CommandType = adCmdText 
cmd . Prepared = True 
cmd. Execute 

Using the Prepared property causes SQL Server to create and 
store a temporary stored procedure in the tempdb database, in a 
technique known as Prepared/Execute. The command text can 
contain most things you could put in a SQL stored procedure. 

— Parthasarathy Mandayam, Bellevue, Wash. 



VS.NET 

Level: Beginning 

Use #region and #endregion to Organize Code 

The #region and #endregion preprocessor directives define blocks 
of code you can expand or collapse in the Visual Studio editor: 

#region MenuHandlers 

private void OnNew (object sender, EventArgs e) 
( 

Invalidate (); 

) 

private void OnExit (object sender, EventArgs e) 
1 

CI ose ( ) ; 

) 

private void OnOpen (object sender, EventArgs e) 

( 

Close (); 

) 

private void OnSave (object sender, EventArgs e) 
I 

Close (); 

) 

#endregi on 

This code defines a region called MenuHandlers. You can expand 
or collapse this node in Visual Studio using the Visual Studio Editor 
Outline feature. This feature lets you show only the code you're 
working with; it hides the rest in a class. 

— Bill Wagner, Manchester, Mich. 

VB4, VB5, VB6 

Level: Intermediate 
Dejd Queue 

I especially enjoyed the "Quick and Easy Queue" tip in the 11th 
edition of "101 Tech Tips for VB Developers" [Visual Basic 
Programmer's Journal March 200 1 ] . You can use the technique for an 
"undo" menu/toolbar option. Use a collection instead of a listbox to 
reduce overhead. Support for both LIFO and FIFO is also included: 

Public Queue As New Collection 
Public Const Q_LIF0 = 
Public Const Q_FIF0 = 1 

Public Sub EnqueuetQueueltem As Variant) 
Queue. Add Queueltem 

End Sub 

Public Function Dequeue(0ptional Mode As Long) As Variant 

Dim Position as Long 

If Queue. Count > Then 
If Mode - Q^LIFO Then 

Position = Queue. Count 
Else 

Posi ti on = 1 
End If 

Dequeue = Queuet Posi ti on ) 
Queue. Remove Position 
Else 

Dequeue - Null 

End If 
End Function 



—Brian Ray, Rockford, 111. 
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VB6 

Level: Advanced 

Open a ToolBar Dropdown Menu 

VB6 introduced a new Style=5-tbrDropDown of the Button object 
for the ToolBar control. In this case, you can add one or more 
ButtonMenu objects to the current Button. Unfortunately, you 
can only open the dropdown menu by clicking on the drop- 
down arrow; in other words, it has no built-in functionality for 
opening a dropdown menu from code. Here's one function, 
ShowPopUpMenu, that lets you open a dropdown menu from 
any place in your source code: 

Private Type POINTAPI 

x As Long 

y As Long 
End Type 

Private Declare Function GetCursorPos Lib "user32" 

(lpPoint As POINTAPI) As Long 
Private Declare Function CI i entToScreen Lib _ 

"user32" (ByVal hWnd As Long, 

lpPoint As POINTAPI) As Long 
Private Declare Function SetCursorPos Lib "user32" 

(ByVal x As Long, ByVal y As Long) As Long 
Private Declare Function ShowCursor Lib "user32" 

(ByVal bShow As Long) As Long 
Private Declare Sub mouse_event Lib "user32" ( 

ByVal dwFlags As Long, ByVal dx As Long, _ 

ByVal dy As Long, ByVal cButtons As Long, 

ByVal dwExtralnfo As Long) 

Private Sub ShowPopUpMenu ( TB As Toolbar, _ 
IndexOfButtonS) 

Const MOUSEEVENTF_LEFTDOWN = &H2 
Const MOUSEEVENTF_LEFTUP = &H4 
Dim Pt As POINTAPI, oldPt As POINTAPI 
With TB.Buttonst IndexOf Button ) 

If Not (.Style = tbrDropdown) Then Exit Sub 

Call GetCursorPos(oldPt) 

Call ClientToScreen(TB.hWnd, Pt) 

Call ShowCursort Fal se) 

Call SetCursorPos(Pt.x + ((.Left + .Width) / 
Screen. Twi psPerPixel X) - 1, 
Pt.y + ((.Top + .Height \ 2) / _ 
Screen. Twi ps Per Pi xelY) ) 
End With 

Call mouse_event(MOUSEEVENTF_LEFTDOWN, 

0, 0, 0, 0) 

Call mouse_event ( MOUSE EV ENT F_L E FT U P , 0, 0, 0, 0) 
Call SetCursorPostoldPt.x, oldPt.y) 
Call ShowCursor(True) 
End Sub 

For example, if you need to open a dropdown menu when a user 
clicks on a main part of any button, use this source code: 

Sub ToolBarI_ButtonClick(ByVal Button As 
MSComctl Lib. Button) 

Call ShowPopUpMenutTool Barl . Button . Index) 
End Sub 

—Vladimir Olifer, Staten Island, N.Y. 



VB3, VB4, VB5, VB6 

Level: Intermediate 

Replicate Character Patterns 

VB's String function is useful to fill a large string with a specific 
character. Occasionally, you might need to fill a string with a 
repeating set of characters. If you're using a small database held 
inside a string, for example, you might want to set default values 
for some of the fields. 

When the need does arise, you can use VB's Mid statement to 
handle the task: 

Dim Data As String 
Const Rep = "ABCD" 

Data = Rep & Space$(1000) 
Mid$(Data, Len(Rep) + 1) = Data 

These last two statements do a significant amount of work. The first 
line allocates the required memory, and the second fills that memory 
with character data — that's pretty good for only two lines of code. 
Not surprisingly, this step is quick, even for large strings, and it 
provides better functionality than VB's regular String function: 

Public Function Replicate (ByVal Number As Long, _ 
ByVal Pattern As String) As String 

' Returns PATTERN replicated in a string NUMBER times. 
' Number = Number of replications desired 
' Pattern = Character pattern to replicate 
Dim LP As Long 
Dim sRet As String 
If Number > Then 
LP = Len(Pattern) 
If LP > 1 Then 

sRet - Pattern & Space$( (Number - 1) * LP) 
If Number > 1 Then 

Mid$(sRet, LP + X) = sRet 
End If 
Else 

sRet = Stri ng$( Number , Pattern) 

End If 
End If 

Replicate - sRet 
End Function 

— Larry Serflaten, Monticello, Minn. 

VS.NET 

Level: Intermediate 
Examine IL 

When you compile a VB.NET or C# project, the code is compiled to 
Microsoft Intermediate Language (MSIL). You can view the IL code 
in lLDasm.exe. Launch ILDASM from the VS.NET IDE to view the 
compiled IL for your code quickly. First, ensure that ILDASM is 
installed — it should be located in the .NET Framework tools direc- 
tory. If it is not in there, run Setup again and make sure you install 
the .NET SDK components. Select External Tools from the Tools 
menu. Add an entry for ILDASM and specify these parameters: 

Command: the full path to ildasm.exe 
Arguments: $(TargetPath) 

When you want to look at the IL for your program, simply build it 
and click on your ILDASM entry in the Tools menu. To dump the IL 
to a text file, specify this parameter: 

Arguments: $( Target Path) /out=$(TargetDi r)$(TargetName) . 1 1 
— Bill McCarthy, Barongarook, Victoria, Australia 
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VB3, VB4, VB5, VB6 

Level: Advanced 

Boundless Array Indexing 

Use this function for getting the 10th next element from an array 
with "circular" contents such as "Monday," "Tuesday," and so on: 

intCurrent = Wraplndext Index:=i ntCurrent , _ 
Move:=+10, UpperBound :=6 ) 

You don't have to think about passing the end of the array as long 
as that's what you want to do: 

Public Function WrapIndex(ByVal Index As Long, 
ByVal Move As Long, _ 
ByVal UpperBound As Long, _ 
Optional ByVal LowerBound As Long) As Long 
' Function for incrementing an index past UB 
' and starting over from LB, or the other way 
' around. 

' If LowerBound is omitted, 0-base is assumed. 

Dim IngCount As Long 

If UpperBound - LowerBound Then 
Wraplndex = LowerBound 

Else 

' Swap UpperBound and LowerBound if needed 

If LowerBound > UpperBound Then 

LowerBound = LowerBound Xor UpperBound 
UpperBound - LowerBound Xor UpperBound 
LowerBound = LowerBound Xor UpperBound 

End If 

' number of elements in range 
IngCount = UpperBound - LowerBound + 1 

' Move Index inside of range 

' LowerBound ... UpperBound if needed 

If Index < LowerBound Then 

Index = UpperBound - ((LowerBound -_ 
Index) Mod IngCount) + 1 
Elself Index > UpperBound Then 
Index = LowerBound + ((Index -_ 
UpperBound) Mod IngCount) - 1 

End If 

' Move to the new index 
Select Case Move 
Case Is > 

Wraplndex = (Index - LowerBound + _ 
Move) Mod IngCount + LowerBound 
Case Is < 

Wraplndex = (Index - LowerBound + 
IngCount - Abs(Move Mod IngCount)) 
Mod IngCount + LowerBound 

Case 

Wraplndex = Index 
End Select 
End If 
End Function 

— Andre Lomoy, Oslo, Norway 



VB4/32, VB5, VB6, VBS, SQL 7.0 and up 

Level: Intermediate 

Avoid Zero-Length String Parameter Failures 

Have you ever had a zero-length string parameter fail when at- 
tempting to execute a stored procedure from ADO? You'll find this 
warning buried in the ADO documentation under the Append 
method for the Parameters collection: "If you select a variable- 
length data type, you must also set the Size property to a value 
greater than zero." This refers to any parameter passed as type 
adLongVarChar, adLongVarWChar, adVarChar, or adVarWChar. I 
use adVarWChar to send a parameter to a SQL Server stored 
procedure expecting a varchar(N), so I've had problems with zero- 
length strings. If you pass a zero-length string and use VB's Len 
function to retrieve its length, an error results when the length is 
passed as 0. 

I wrote a simple function, LenStringParameter, to return a 
length of 1 instead. Place the function in a module to make it 
available from anywhere in your app: 

Function LenStringParametertstrParam As String) As Long 
From the ADO BOL: "If you select a variable-length 
data type, you must also set the Size property to a 
value greater than zero." 

The length must be passed as 1 even if the string 
i s empty or Null. 
LenStringParameter = I If ( Len(strParam) - 0, 1, _ 

Len(strParam) ) 
End Function 

Test this function by substituting LenStringParameter for Len 
wherever needed: 

Public Function TestStri ngParameterf ) as String 

Dim strMyTestVal ue As String 

Dim i ntOtherVal ue As Integer 

strMyTestVal ue = TextMyKeyVal ue.Text 

' Read from a text field, or assign directly. 

intOtherValue = 1 

Dim cmdADO As ADODB . Command : Set cmdADO = _ 

New ADODB. Command 
With cmdADO 

.ActiveConnection = strConnecti on 

' Your connection string or connection here. 

.CommandType - adCmdStoredProc 

.CommandText = "spReturnMyAnswer" 

.Parameters. Append .CreateParametert "MyTestVal ue" , 

adVarWChar, adParamlnputOutput , 

LenStri ngParametert strMyTestVal ue) , _ 

StrMyTestVal ue) 
.Parameters. Append . CreateParameter ( "OtherVal ue" , _ 

adlnteger, adParamlnputOutput, _ 

Lent i ntOtherVal ue) , intOtherValue) 
. Execute 

' Pick up the return values. 

StrMyTestVal ue = . Parameters( "MyTestVal ue" ). Val ue 
intOtherValue - . Parameters( "OtherVal ue" ). Val ue 

End With 

Set cmdADO = Nothing 
TestStringParameter = StrMyTestVal ue 
End Function 

A word of caution: If you expect an adParamlnputOutput type 
parameter's return value to be larger than the size going in, don't use 
LenStringParameter. You'll receive truncated data. In other words, 
if LenStringParameter returns 20, and 20 is sent as the size of an 
adParamlnputOutput type parameter, a maximum of 20 characters 
will be returned, even if the stored procedure sets the value of the 
OUTPUT parameter to a value longer than 20 characters. Instead, 
set the size to the maximum allowed by the stored procedure. If the 
stored procedure expects a varchar(25) OUTPUT, send the length 
as 25. If it returns less than 25, the extra space will be discarded. 

— Jake Mireles, Houston 
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VB4/32, VB5, VB6 

Level: Intermediate 

Convert a VB CommandButton Into a Future Button 
at Run Time 

I first used this function in the VB4 days when CommandButtons 
didn't have a graphical Style property. It's still useful because you 
can't set the Style property at run time. You can use this technique 
to produce many different styles of intrinsic controls: 

Private Declare Function GetWi ndowLong Lib "user32" _ 
Alias "GetWi ndowLongA" (ByVal hWnd As Long, _ 
ByVal nlndex As Long) As Long 

Private Declare Function SetWi ndowLong Lib "user32" _ 
Alias "SetWindowLongA" (ByVal hWnd As Long, _ 
ByVal nlndex As Long, ByVal dwNewLong As Long) 
As Long 

Private Declare Function SendMessage Lib "user32" _ 
Alias "SendMessageA" (ByVal hWnd As Long, _ 
ByVal wMsg As Long, ByVal wParam As Long, _ 
ByVal lParam As Long) As Long 

Private Const BS_BITMAP As Long - 8.H80& 

Private Const BS_ICON As Long = 8.H40& 

Private Const BS_TEXT As Long - 0& 

Private Const BH_GETIMAGE As Long = &HF6 

Private Const BM_SETIMAGE As Long - &HF7 

Private Const IMAGE_BITMAP As Long = OS 

Private Const IMAGE_ICON As Long = 1& 

Private Const GWL_STYLE As Long = (-16&) 

Private Const GWL_EXSTYLE As Long = (-Z0&) 

Public Sub SetButtonGlyph(Button As CommandButton, _ 
Picture As StdPicture) 
Dim dwStyle As Long 
Dim hlmage As Long 
Dim ImageType As Long 

' Get the button style 

dwStyle = GetWindowLong(Button . hWnd , GWL_STYLE) 

If Picture Is Nothing Then 

' Clear the graphic style, add the text style 
dwStyle = (dwStyle Or BS_TEXT) And _ 

Not (BS_BITMAP Or BS_ICON) 
If (dwStyle And BSJITMAP) <> Then 
Call SendMessage( Button . hWnd , 

BM_SETIMAGE. IMAGE_BITMAP , 0&) 
El self (dwStyle And BS_ICON) <> Then 
Call SendMessage( Button . hWnd , 
BM_SETIMAGE. IMAGE_ICON. OS) 

End If 

' Update style bits & redraw 

SetWindowLong Button. hWnd, GWL_STYLE, dwStyle 

Button . Refresh 

Else 

' Remove mutually exclusive bits 
dwStyle - dwStyle And _ 

Not (BS_BITMAP Or BS_ICON Or BS_TEXT) 
Select Case Picture. Type 
Case vbPicTypelcon 

dwStyle = dwStyle Or BS_ICON 

ImageType = IMAGE_ICON 
Case vbPi cTypeBi tmap 

dwStyle = dwStyle Or BS_BITMAP 

ImageType = IMAGE_BITMAP 
End Select 

' Handle of image to attach to button, 
hlmage - Pi cture . Handl e 



' Change the style of the button 

Call SetWindowLong(Button.hWnd, GWL_STYLE, _ 

dwStyl e) 
' Add or remove the glyph 
Call SendMessagetButton.hWnd, BM_SETIMAGE, 

ImageType. hlmage) 

End If 
End Sub 

— Monte Hansen, Ripon, Calif. 

VB3, VB4, VB5, VB6 

Level: Beginning 

Object Properties as Parameters are ByVal Only 

In VB, we can use a function/sub call to return results by passing 
parameters by reference (although it's generally a bad idea). Be 
aware that if you use an object's properties as parameters, the 
result might not be what you expected. For example, create a 
simple form application with a textbox and command button, then 
run this: 

Private Sub Commandl_Cl i ck( ) 
Dim szMsg As String 

szMsg = "Before: & Textl.Text & & vbCrLf 

Call testStr(Textl .Text) 

szMsg = szMsg & "After: & Textl.Text & 
MsgBox szMsg 
End Sub 

Private Sub testStrt aszText As String) 

aszText = "Text string changed" 
End Sub 

If you use an object's property directly as a parameter, that 
property won't be updated. The reason is simple: VB copies the 
property into a temporary memory location and passes that 
memory as the parameter into the function/sub. VB doesn't copy 
the memory back to the object's property after the call, so any 
changes you make are lost. 

— David Chu, Calgary, Alberta 

VB3, VB4, VB5, VB6 

Level: Beginning 

App.Path is Inconsistent 

The path returned by App.Path is inconsistent. If the program is 
running in a root directory, the path will have a backslash on the 
end. Otherwise, it won't. The solution is to write one or two 
wrapper functions to ensure a path has a backslash on the end: 

Public Function Normal izePatht _ 

ByVal strPath As String) As String 

' If the path doesn't have a slash at the end, 

' add one. 

If Right$(strPath. 1) = "\" Then 
Normal izePath = strPath & "\" 

Else 

Normal izePath = strPath 

End If 
End Function 

Public Function AppPathO As String 
' Return the normalized App.Path ... 
AppPath - Normal izePath(App. Path ) 

End Function 

Now you get a consistent App.Path easily by calling the AppPath 

function. 

— Chris Hynes, Fort Washington, Md. 
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VB.NET 

Level: Intermediate 

Use Intl 6, Int32, and Int64 for API Declarations 

When declaring API functions in VB.NET, use Int 16, Int32, and Int64 
rather than Short, Integer, and Long, respectively, to avoid pos- 
sible confusion with VB6 declarations. Note: In VB6, Long is 32-bit 
and Integer is 16-bit, whereas in VB.NET, Long is 64-bit and Integer 
is 32-bit. 

— Bill McCarthy, Barongarook, Victoria, Australia 



VB5, VB6 

Level: Intermediate 

Make the Background of Your 
RichTextBox Controls Transparent 

If you plan to require Windows 2000 for your application, you can 
make your standard VB RichTextBox control 100-percent trans- 
parent with a few simple API calls. To try this tip, create a new 
project (or use an existing one), add a RichTextBox control, and 
add this code and these declarations in a standard module: 

Option Explicit 

' Win32 APIs . 

Private Declare Function GetWi ndowLong 

Lib "user32" Alias "GetWi ndowLongA" 

(ByVal hWnd As Long. 

ByVal nlndex As Long) As Long 
Private Declare Function SetWi ndowLong _ 

Lib "user32" Alias "SetWindowLongA" _ 

(ByVal hWnd As Long. ByVal nlndex As Long, _ 

ByVal dwNewLong As Long) As Long 
Private Declare Function SetWindowPos Lib "user32" _ 

(ByVal hWnd As Long, ByVal hWndlnsertAfter As 

Long, ByVal X As Long, ByVal Y As Long, 

ByVal cx As Long, ByVal cy As Long, 

ByVal wFlags As Long) As Long 

' Style bits. 

Private Const GWL_EXSTYLE As Long = (-20) 
Private Const WS_EX_TRANS PARENT As Long = &H20 

' Force total redraw that shows new styles. 
Private Const SWP_FRAMECHANGED = &H20 
Private Const SWP_N0MOVE = &H2 
Private Const SWP_N0Z0RDER - &H4 
Private Const SWP_N0SIZE - &H1 

Public Function TransparentfByVal hWnd As Long. 
Optional ByVal Value As Boolean = True) As 
Bool ean 

Dim nStyle As Long 
Const swpFlags As Long = 

SWP_FRAMECHANGED Or SWP_N0M0VE Or _ 

SWP_N0Z0RDER Or SWP_N0SIZE 

' Get current style bits. 

nStyle - GetWi ndowLong( hWnd , GWL__EXSTY LE ) 

' Set new bits as desired. 

If Value Then 

nStyle = nStyle Or WS_EX_TRANS PARENT 
Else 

nStyle - nStyle And Not WS_EX_TRANS PARENT 
End If 

Call SetWindowLong(hWnd. GWL_EXSTYLE, nStyle) 
' Force redraw using new bits. 
SetWindowPos hWnd. 0. 0. 0. 0. 0. swpFlags 
' Make sure new style took. 
Transparent = _ 

(GetWindowLongthWnd, GWL_EXSTY LE ) - nStyle) 
End Function 



You can use this function to toggle the transparency of your 
RichTextBox controls at will: 

Private Sub Checkl_Cl ickC ) 

Call Transparent; Ri chTextBoxl . hWnd , _ 
(Checkl. Value = vbChecked)) 
End Sub 

To be on the safe side, check the OS version before making 
these calls, as the effects can be rather unpleasant in the 
wrong environment. 

That's it! A simple call to Get/SetWindowLong retrieves the 
current extended style bits and adds the standard TRANSPARENT 
style so the window becomes transparent. Note, if you change the 
style after the control is visible, you need to force the screen to 
repaint to see the effect. 

— John Cullen, Pedroucos, Portugal 

VB4, VB5, VB6 

Level: Beginning 

Duck the Modal Form PopupMenu Bug 

Microsoft confirms this bug: If an application contains at least two 
forms, and one of those forms is displayed modally using a 
PopupMenu on another form, a PopupMenu on the modal form 
won't be displayed. Knowledge Base article Q167839 - BUG: 
PopupMenu on Modal Form Not Displayed suggests using a Timer 
control as a workaround for this problem. My solution sets a flag 
variable in the first form's menu procedure, which is then acted 
upon after the popup is dismissed. 

Start a new Standard EXE project. Forml is added by default. 
Add another form (Form2) to the project. On Forml, create an 
invisible menu (mnuFile) with the caption "File" that has a submenu 
(mnuOpen) with the caption "Open". On Form2, create an invisible 
menu (mnuEdit) with the caption "Edit" that has a submenu 
(mnuFind) with the caption "Find". Then add this code to Forml: 

Private bShowForm2 as Boolean 

Private Sub Form_Cl i ck( ) 
PopupMenu mnuFile 
If bShowForm2 Then 
bShowForm2 = Fal se 
Form2.Show vbModal 
End If 
End Sub 

Private Sub mnuOpen_Cl i ck( ) 

bShowForm2 = True 
End Sub 

Add this code to Form2: 

Private Sub Form_Click() 

PopupMenu mnuEdit 
End Sub 

Press F5 to run the program. Click on Forml to display the File 
PopupMenu. Select Open to show Form2 modally. Click on Form2 
to display the Edit PopupMenu. 

—Peter Gabris, Marietta, Ga. 
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VB3, VB4, VB5, VB6 

Level: Beginning 

Open Namespace Objects From VB 

As you probably know, you can open an Explorer window on a 
directory from VB by using the intrinsic Shell function: 

Dim Taskld As Long 

Taskld - Shel 1 ( "Expl orer c:\", vbNormal Focus ) 

But what about items in the namespace that don't correspond to 
physical file system objects, such as the Printers and Task Sched- 
uler folders — or My Computer itself, for that matter? 

Here's a little-known trick: You can pass an argument to Ex- 
plorer indicating the namespace object by its QUID, and Explorer 
dutifully opens it for you. For example, to open Scheduled Tasks, 
you could use this: 

Dim Taskld As Long 

Dim ShellCmd As Stning 

ShellCmd = "Explorer : : { 20D04FE0- " I _ 

"3AEA-1069-A2D8-08002B30309DI" & _ 

"\: : ID6277990-4C6A-11CF-8D87-" & _ 

"00AA0060F5BF}" 
Taskld - Shell (ShellCmd, vbNormal Focus ) 

Here's a list of the most common namespace objects and the 
equivalent "paths" to pass to Explorer in the Shell command; this 
information comes straight from the Windows Registry, which you 
can also search for other namespace objects. Now you can open 
any of these objects right from within VB: 

My Computer 

::I20D04FE0-3AEA-1069-A2D8-08002B30309D) 

Network Neighborhood 

: : I208D2C60-3AEA-1069-A2D7-08002B30309DI 

Recycle Bin 

: : l545FF040-5Cei-101B-9F08-00AA002F954E! 
Task Scheduler 

::{20D04FEO-3AEA-1069-A2D8-08002B30309D]\::ID6277990-4C6A-11CF-8D87-OOAA0060F5BFI 
Printers 

::(20D04FEO-3AEA-1069-A2D8-08002B30309D)\::(2227A280-3AEA-1069-A2DE-08002B30309DI 
Control Panel 

::(20D04FEO-3AEA-1069-A2D8^8002B30309D)\::I21EC2020-3AEA-1069-A2DO-08002B30309D1 
Dial -up Networking 

::(2ODO4FE0-3AEA-1069-A2D8-08OO2B3O309Dl\::la4d92740-67cd-llcf-96f2-00aaOOalldd9l 
Web Folders 

: : I20D04FEO-3AEA-1069-A2D8-08002B303090I\: : IBDEADFOO-C265-11DO-BCED-0OAOC90AB50FI 

— Jason Fisher, Dallas 



VS.NET 

Level: Beginning 
Customize Toolbox Icons 

You can create your own custom bitmap to give your UserControl 
or component its own unique toolbox icon. Simply add a 16-by-16 
bitmap to your project and give it the same name as the compo- 
nent; for example, MyComponent.bmp. Set its Build action to 
Embedded Resource. 

—Bill McCarthy, Barongarook, Victoria, Australia 



VB3, VB4, VB5, VB6 

Level: Beginning 

Keep Selected Areas in Grid Read-Only 

1 needed to lock a row on a grid to show totals as well as a 
percentage row that needed to remain read-only to the user. I 
didn't want to add another grid with a single row for totals as it 
didn't have the flexibility I needed. After some Web searching, I 
foundthistobea common issue. After much hair-pulling and many 
caffeinated beverages, I discovered this simple and basic answer 
in one line of code. Enjoy: 

Private Sub MyDBGri d_Key Press ( KeyAsci i As Integer) 
' Whatever row you want to be "locked" 
If MyDBGri d . Row = MyTotalsRow Then KeyAscii = 

End Sub 

— Joe Johnston, Chesapeake, Va. 

VB6, VBS 

Level: Beginning 

Quick Split 

When you use the Split function from VB6 or VBScript, sometimes 
you need only a single value and not the whole array. To do this, 
you can reference the element you need right after the Split 
statement like this: 

Spl i t (myVar , myDelimXl) 

This statement retrieves the second element of the array, ele- 
ment 1. 

— Judah Reeves, San Diego 

VB4, VB5, VB6 

Level: Beginning 

Zoom Continuously in Your Image-Processing Apps 

This code demonstrates how fast you can zoom into images using 
VB's form PaintPicture method. Start a new project containing two 
forms named frmClip and frmPicture. frmPicture contains a Shape 
control named shpRectangle, an Image control named pic, and all 
the code. frmClip contains no code, but it's the target of the 
clipped image within shpRectangle as it is dragged over pic: 

' frmPicture 
Option Explicit 
Private mlTop As Long 
Pri vate ml Left As Long 
Private mlRight As Long 
Private mlBottom As Long 

Private Sub Form_Load() 
Me.ScaleMode - vbTwips 
With pic 

.BorderStyle = ' none 

.Move 0, 

.Picture - LoadPicturet _ 

"C: \Anderson\Imagi ng\ Images \ address .bmp" ) 
.ZOrder vbSendToBack 
End With 

With shpRectangle 

.Shape = ' Rectangle 

. BorderStyl e = 1 ' sol id 

.BorderWidth - 2 

.DrawMode = 13 'Copy pen 

.Visible = False 
End With 

f rmCl i p . Seal eMode - vbTwips 
frmClip. Show 
End Sub 



Private Sub pi c_MouseMove( Button As Integer, 
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Shift As Integer, X As Single, Y As Single) 
If Button - vbLeftButton Then 
With shpRectangle 

.Visible = False 'reduces flickering 

ml Bottom = Y 

mlRight = X 

' Don't allow clip to include non-picture 
' region 

If mlBottom > pic. Height Then _ 

ml Bottom = pic. Hei ght 
If mlRight > pic. Width Then 

ml Right - pic. Width 
If mlBottom < pic. Top Then 

ml Bottom = pic. Top 
If mlRight < pic. Left Ther 

ml Right = pic. Left 

' Swap top/bottom as necessary 
If mlBottom < nTTop Ther 

. Top = ml Bottom 

.Height = mlTop - mlBottom 
Else 

.Top = mlTop 

.Height - mlBottom - mlTop 
End If 

' Swap left/right as necessary 
If ml Right < ml Left Then 

. Left = ml Right 

.Width - ml Left - mlRight 
Else 

.Left = ml Left 

.Width = ml Right - ml Left 
End If 

. Vi si bl e = True 

DoEvents ' Allow rectangle to draw 
f rmCl i p . Pa i ntPi cture pic. Picture, 0, 0, _ 
f rmCl i p . Seal eWi dth , _ 
f rmCl ip.ScaleHeight, _ 
.Left - pic. Left, .Top - pic. Top, _ 
.Width, .Height 
End With 
End If 
End Sub 

Private Sub pic_MouseDown(Button As Integer, 
Shift As Integer, X As Single, Y As Single) 
If Button - vbLeftButton Then 
ml Top = Y 
ml Left = X 
End If 
End Sub 

Private Sub pi c_MouseUp( Button As Integer, _ 
Shift As Integer, X As Single, Y As Single) 
shpRectangle. Visible = False 

End Sub 

— Graeme Anderson, Blackburn, Australia 



VB5, VB6 

Level: Intermediate 

Merge VBL Files Into Your Registry 

Use this tip when developing ActiveX components and testing 
ActiveX OCXs that require license files. These Registry entries 
allow you to merge VBL file contents into the Registry. You add 
three context menu options for VBL files: Merge (into the Regis- 
try), Edit, and Print: 

REGEDIT4 

[HKEY_CLASSES_R00T\.vbl] 
@="VisualBasic.VBLFile" 

[HKEY_C LASSES_R00T\ Vi sualBasic.VBLFile] 
@= "Visual Basic Control License File" 

[HKEY_CLASSES_R00T\Vi sua 1 Basi c . VBLFi 1 e\Def aul t Icon] 
@="N0TEPAD.EXE,1" 

[ HKEY_CLASSES_R00T\Visual Basic. VBLFi 1 e\shel 1 ] 

[HKEY_CLASSES_R00T\ Visual Basic. VBLFi le\shell\edit] 
@="&Edit" 

[HKEY_CLASSES_R00T\Vi sual Basic. VBLFi 1e\shell \edi t\command] 
@="N0TEPAD . EXE V%1\" 

[HKEY_CLASSES_ROOT\ Visual Basic. VBLFi 1 e\shel 1 \open] 
@-"Mer&ge" 

[HKEY_CLASSES_R00T\Visual Basi c .VBLFi 1 e\shel 1 \open\command] 
@="regedit.exe 

[HKEY_CLASSES_R00T\Vi sual Basic. VBLFi 1 e\shel 1 \print] 

[HKEY_CLASSES_R00T\Vi sual Basic. VBLFi 1 e\shel 1 \pri nt\command] 
©-"NOTEPAD. EXE /P 

Editor's Note: All the usual warnings apply, of course, when running 
scripts against your Registry. 

— Tom Sweet, Marietta, Ga. 

VB4, VB5, VB6 

Level: Beginning 

Use the Keyboard for Extra-Fine Sizing and 
Positioning 

If you have a sensitive mouse and/or many objects you need to 
position carefully on a form, getting everything right can be a real 
pain — especially when you click on an object simply to alter some 
of its properties and move it accidentally. Here's the answer: Use 
the "Lock Controls" option under the Format menu to lock the 
position of a form's controls so you can't change control positions 
accidentally when clicking on the controls. But now you can't use 
the mouse to reposition a control without unlocking everything. 
However, you can use the keyboard. Simply select the control 
whose position you want to change and combine the Ctrl key and 
arrow keys to move the control, or the Shift key and arrow keys to 
resize it. The grid spacing you've configured (Tools I Options I 
General) controls the move/size extent per arrow press. 

— John Cullen, Pedroucos, Portugal 
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VB4, VB5, VB6 

Level: Intermediate 
Override the Err Object 

Believe it or not, you can override VB's built-in Err object to add 
functionality the Err object doesn't offer. Create a class called 
CError, then add this property procedure: 

Public Property Get Numbert) As Long 

Number = VBA . Err . Number 
End Property 

Now create a BAS module and add this code: 

Public Function ErrO As CError 
Static oErr As CError 
If oErr Is Nothing Then 

Set oErr = New CError 
End If 

Set Err = oErr 
End Function 

Now you can retrieve the custom CError object anywhere in your 
project that you reference the Err object. Of course, you want to 
add support for standard properties and methods such as De- 
scription, Source, Raise, and so on. You can also add support for 
other things: 

• Err.Line (could return the Erl) 

• Err.Log (could log the error to a text file or the event log) 

• Err.FullDescription (could wrap the number, source, and de- 
scription into one nicely formatted string) 

• Err.Stack (could return stack trace information) 

• Err.Show (could display a nicely formatted message box de- 
scribing the error) 

The nice thing about this approach is that it consolidates all your 
error-handling code neatly into what appears to be the Err object 
itself. 

—Darin Higgins, Fort Worth, Texas 

VB5, VB6 

Level: Beginning 

Copy an Array Faster, Redux 

Simple is usually best. The "Copy an Array Faster" tip in the 11th 
Edition of "101 Tech Tips for VB Developers" [Visual Basic 
Programmer's Journal March 2001] describes a method that uses a 
low-level approach to accelerate array copying. VB4 introduced 
direct assignment to Byte arrays, and VB5 later expanded that 
capability to include other array types as well. 

This code does the same thing as the previous tip, with the 
same performance improvement: 

Dim IntArraylt) As Integer 
Dim IntArray2() As Integer 
ReDim IntArrayld To 6000000) 
ReDim IntArray2(l To 6000000) 
IntArray2 = IntArrayl 

As the old saying goes: "Keep it simple, stupid." The previous tip 
is still useful for copying portions of arrays, but use direct assign- 
ment if you need to copy the entire array. 

— Dave Doknjas, Surrey, British Columbia 



VB5, VB6 

Level: Intermediate 

Sort Arrays Faster 

When an array is declared as a type where each element occupies 
a lot of memory (such as a complex user-defined type), sorting the 
array can become unacceptably slow. To speed things up, the data 
contained within the array shouldn't be moved in memory any 
more than necessary. 

To achieve this, you can set up a second array of integers that 
contains the indexes of the main array. Your sorting algorithm 
changes the order of the index array based on comparisons 
within the main array. When the process is complete, the main 
array has not been changed but the index array now contains the 
indexes of the main array in the sorted order. From this point, 
you can reorder the main array using the index array, which you 
can then discard: 

Dim Idxt) As Long ' index array 

Dim DataO As EmployeeData ' data array of UDT 

Compare elements of the main array during sorting: 

Data(Idx(i)).LastName < Data( Idxt a ) ) . LastName 

Reorder elements of the index array during sorting: 

tmp - Idx( a ) 
Idx(a) = Idx(i ) 
Idx( i ) = tmp 

Copy the data array to a reference array: 

Dim Reft) As EmployeeData ' reference array 

Ref = Data 

Populate the data array in the correct order using the reference 
array and the index array: 

For i = LBound(Data) To UBound(Data) 

Datati) = Refddx(i)) 
Next 

Although this process can be many times faster than reordering 
the main array using the sorting algorithm, it can still take a long 
time. To save more time, you don't need to reorder the main array 
at all. Instead, whenever you need to access the data in the main 
array in order, simply refer to its elements using the index array. 
For example: 

Textl.Text = Datat Idxt i )). LastName 

Unfortunately, using the main array with the index array can cause 
complications. Sometimes you need to reflect changes made to 
the main array in the index array. This can be difficult because the 
main array does not contain information about the index array. 
Therefore, changing key data in the main array requires reindexing 
to keep things in sync. 

— Steele Cheffers, Perth, Western Australia 

VB4, VB5, VB6, VBA 

Level: Beginning 

Use the Format Function for Regional Settings 

Although the GetLocalelnfo API can retrieve just about any re- 
gional setting you need, VB's own Format function also can be 
useful for quick-and-dirty answers to some settings. For example, 
use this code to read the regional setting for the numeric decimal 
symbol and thousands separators: 

strDecimal = Format$(0, ".") 

strThousands = Mi d$( FormatK 1000 , "0,0"), 2, 1) 



— John Sevarts, Heerlen, Netherlands 
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VB4/32, VB5, VB6, VBS 

Level: Intermediate 

Create a Duplicate Recordset 

The Clone method doesn't quite fit the bill when you want to create 
a duplicate recordset — it gives you two pointers to the same 
recordset, so any updates or deletes you make in one will be 
reflected in the other. This isn't always desirable. 

You can create a true duplicate recordset easily using ADO 2.5 
(or later) while avoiding asecondtriptothe server. Use the Stream 
object as an intermediary to hold the necessary XML and pass that 
XML back into a second Recordset object: 

Dim rsOne As New ADODB . Recordset 
Dim rsTwo As New ADODB . Recordset 
Dim oTempStream As New ADODB. Stream 
'Assumes rsOne has been populated with data 
rsOne.Save oTempStream. adPersistXML 
rsTwo.Open oTempStream 

The catch: The second Recordset will be a client-side cursor. 
If you want to commit any changes back to your database, you 
must establish a new connection, set it on the Recordset, and call 
UpdateBatch. 

— Larry Johnson 

VB.NET 

Level: Beginning 

Instantiate an Object Inline 

You can instantiate a new instance of an object inline, making your 
code more compact. This example shows both versions: 

Imports System 

Public Class Author 

Private fName As String 
Private IName As String 

Public Sub New(ByVal fName As String, ByVal IName As 
String) 

me. fName = fName 
me . 1 Name = 1 Name 
End Sub 

Public Readonly Property FullNameO As String 
Get 

Return fName & " " & IName 
End Get 
End Property 
End Class 

Public Class Test 

Publ ic Shared Sub Main( ) 

'This is the more verbose method 
Dim author As Author = _ 

New Authort "Jon" , "Goodyear") 
Console.WriteLine( author. Full Name) 

'This is the less verbose method 
Console. WriteLinet _ 

New Authorf "Jon" , "Goodyear" ). Ful 1 Name) 
End Sub 
End Class 

—Jonathan Goodyear, Orlando, Fla. 



VB3, VB4, VB5, VB6, VBA, VBS 

Level: Beginning 

Lock Windows 2000 Instantly 

Locking an NT workstation has never been easy. Windows 2000 
has a new function, LockWorkStation, that can lock the machine 
instantly with a single API call: 

Private Declare Function LockWorkStation Lib _ 
"user32.dll" () As Long 

Call LockWorkStation 

In fact, because this function requires no parameters, you can 
reduce the code to a single line, as well as make it callable from 16- 
bit code, by invoking it through rundll32: 

Call Shel 1 C " rundl 1 32 user32 . dl 1 , LockWorkStati on" , 
vbNormal Focus ) 

The workstation locks instantly when this line is executed. Here's 
the equivalent VBS code: 

Dim WshSHell 

Set WshShell = CreateObjectt "WScript.Shel 1 " ) 
WshShell .Runt "rundll32 user32.dll .LockWorkStation") 

— Brian Abernathy, Marietta, Ga. 

VB4, VBS, VB6 

Level: Beginning 

Enable and Disable Frames 

I've had problems enabling and disabling frame controls in Visual 
Basic. If a frame is set to disabled, all the controls within the frame 
are disabled — but they still look enabled. So I created a simple 
function that loops through all controls, locating those on a 
specific frame, and enables or disables them as requested: 

Private Sub Enabl eFrameControl s ( 

fra As Frame, ByVal Enabled As Boolean) 

Dim ctl As Control 

On Error Resume Next 

For Each ctl In Me. Controls 

If ctl . Contai ner Is fra Then 
ctl . Enabl ed = Enabl ed 

End If 
Next ctl 

fra . Enabl ed = Enabl ed 

End Sub 

— Chris O'Connor, Wantirna South, Victoria, Australia 

VB5, VB6 

Level: Beginning 

Skip Object Declaration Using "With" Keyword 

If you want to use an object in the middle of a routine and avoid 
declaring the object in the routine, simply use this syntax: 

With New <object classname> 

.<method/property> 
End With 

This is the equivalent of: 

Dim X as New <object classname> 

With X 

. <met hod /p rope rty> 
End With 
Set X = nothing 

— Kevin Alons, Salix, Iowa 
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VB5, VB6 

Level: Advanced 



,Y }< ,V ,Y ,Y Five Star Tip 



Use Argument Arrays With CallByName 

VB6 introduced a new built-in function, CallByName(), as a mem- 
ber of VBA.Interaction. It lets you reference an object's method or 
property by passing its name as an argument. The syntax is: 

result=CallByName(Object, ProcName, _ 
CallType [ , ParamArrayArgs] ) 

Unfortunately, this function has several restrictions: It's acces- 
sible from VB6 only; when an error is raised in an ActiveX proce- 
dure called with the CallByName() function from a client, the 
client always gets "error 440" regardless of the original error 
number being raised (for details, see Microsoft Knowledge Base 
article Q194418 - PRB: CallByName Fails to Return the Correct Error 
Information); and the type of the last argument is ParamArray, so 
you can't create a dynamic list of arguments into one statement. 
For example, the first and second Call statements of this code 
don't work: 

Dim x(l) 

x(0) = 1: X(l) = 2 

'--(1) Error (dynamic list): 

Call CallByNametMe, "xx". VbMethod, x) 

'--(2) Error: 

Call CallByName(Me, "xx". VbMethod, Arrayd, 2)) 
'--(3) OK: 

Call CallByName(Me, "xx", VbMethod, 1. 2) 

Function xx(xl, x2) 
'-•do something here-- 
End Function 

However, you can build your own CallByName function using 
TypeLib information (TLBlNF32.dll) for VB5/6 applications with- 
out pointed restrictions: 

' Required for use in VB5! 
Public Enum VbCallType 

VbMethod = 1 

VbGet - 2 

VbLet = 4 

VbSet = 8 
End Enum 

Public Function Cal 1 ByNameEx(Obj As Object. _ 
ProcName As String, CallType As VbCallType, _ 
Optional vArgsArray As Variant) 
Dim oTLI As Object 
Dim ProcID As Long 
Dim numArgs As Long 
Dim i As Long 
Dim v() 

On Error GoTo Handler 

Set oTLI = CreateObjectC'TLI.TLIApplication") 
ProcID - oTLI . InvokeID(Obj , ProcName) 

If IsMissing(vArgsArray) Then 
CallByNameEx - oTLI . InvokeHookf 
Obj , ProcID, CallType) 

End If 

If IsArray(vArgsArray) Then 
numArgs = UBound( vArgsArray ) 
ReDim v(numArgs) 
For i = To numArgs 

v(i) - vArgsArrayt numArgs - i) 
Next i 

CallByNameEx = oTLI . InvokeHookArrayt _ 
Obj, ProcID, CallType, v) 



End If 
Exit Function 

Handl er : 

Debug. Print Err. Number. Err. Description 
End Function 

You must use this syntax to call the CallByNameEx() function: 

Call CallByNameEx(Me. "xx". VbMethod. x) 

Call CallByNameExtMe. "xx", VbMethod, Arrayd, 2)) 

Result=CallByNameEx(Me, "xx". VbMethod, x) 

x is an array containing the same number of elements as the called 
procedure has parameters. The CallByNameExQ function returns 
a real error number from a calling procedure. For VB5, you must 
define the VbCallType Enum used by the third parameter of 
CallByNarneExQ, or use ordinary integers in place of the Enum. 



-Vladimir Olifer, Staten Island, N.Y. 



VB3, VB4, VB5, VB6 

Level: Beginning 

Select Case Enhancement 

In the January 2000 issue of Visual Basic Programmer's Journal, Ron 
Schwarz wrote a nice article on VB Masonry ("VB Masonry: 
Applying Mortar to the Bricks"). I have found the need to do 
multiple tests on dissimilar variables and objects with any failing 
test causing an action. Multiple embedded If...Then...ElseIf...EndIf 
statements are awful to lookat and troubleshoot. I found that using 
Select Case does the trick and is easy to read. Consider testing 
several items before continuing (whether to check during entry or 
after is another subject). Try this: 

Private Function okToPost() As Boolean 
' Assume it's safe to post. 
okToPost - True 

Select Case False 

' Assume you want your tests to be True 
' Any tests that evaluate to False will 
' trigger the case code. 
Case ( 1 vDi st . Li stltems . Count > 0) 
' Any items in a listview control? 
MsgBox "No Items Selected", 

vblnformation, "Post" 
okToPost = False 

Case IsNumeri c( f vCheckNumber ) 

' Did the user enter a valid number? 
MsgBox "Invalid Check Number", 

vblnformation, "Post" 
okToPost = Fal se 
f vCheckNumber . Set Focus 

Case (f vlnvoi ceAmount - fvCheckAmount) 
' Does this balance? 

' More case statements can follow that 
' evaluate to true or false 

End Select 
End Function 

—Timothy P. Sullivan, Fort Wayne, Ind. 
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SQL Server 6.5 and up 

Level: Intermediate 

Use the CASE Statement in a SQL SELECT Clause 

SQL Server provides a mechanism for returning different 
values in a SELECT clause based on Boolean conditions: the 
CASE statement. This statement resembles Visual Basic's Select 
Case statement. 

The SQL CASE statement has WHEN, THEN, and ELSE clauses 
along with an END terminator. The syntax is: 

CASE [expression] 

WHEN [value | Boolean expression] THEN [return value] 
[ELSE [return value]] 

END 

The [expression] is optional and contains a table column or a 
variable. When you specify [expression] directly after the CASE, 
you must populate the [value] parameter in the WHEN clause: 

DECLARE @TestVal int 
SET STestVal = 3 

SELECT 

CASE OTestVal 

WHEN 1 THEN 'First' 
WHEN 2 THEN 'Second' 
WHEN 3 THEN 'Third' 
ELSE 'Other' 

END 

SQL Server compares this value to the expression and when the 
values match, it returns the THEN clause's [return value]. If none 
of the WHEN clauses equates to true, SQL Server returns the 
[return value] in the optional ELSE clause. If the ELSE clause is 
omitted and no value is matched, NULL is returned. 

If you don't specify [expression], you must include the [Bool- 
ean expression] in the WHEN clause. This can contain any valid 
Boolean expression SQL Server allows: 

DECLARE @TestVal int 
SET @TestVal = 5 

SELECT 
CASE 

WHEN (STestVal <-3 THEN 'Top 3' 
ELSE 'Other' 

END 

— Jason Rein, Thompson's Station, Tenn. 

VB3, VB4, VB5, VB6 

Level: Beginning 

Determine the Last Day of the Month 

Todd Knudsen submitted a tech tip ["Find the Last Day of a 
Month," Visual Basic Programmer's Journal April 2001] with a 
function called FindEOM(ADate As Variant) that calculates the 
end of a month: 

NextMonth = DateAddC'm", 1, ADate) 

FindEOM = NextMonth - DatePartt "d" , NextMonth) 

You can accomplish the same thing with one line of code: 

FindEOM = DateSeri al (Year(ADate) , Month(ADate) + 1, 0) 

Setting the day parameter of DateSerial to always returns the day 
prior to day 1, which is the end of the previous month. 

— Barry Garvin, Georgetown, Mass. 



VB.NET 

Level: Beginning 

Initialize Fields in Classes 

In VB.NET, you can declare a variable and initialize it on the same 
line: 

Dim x as Int32 = 5 

You can also use this code to initialize fields in a class: 

Publ i c CI ass Foo 

Private m_Flag As Int32 = 4 



End Class 

Note: In VB.NET, the base class constructor is called before the 
field is initialized. The compiled code is the equivalent of: 

Public Class Foo 

Private m_Flag As Int32 

Publ ic Sub Newt ) 

MyBase.Newt ) 

m_Fl ag = 4 
End Sub 

End Class 

— Bill McCarthy, Barongarook, Victoria, Australia 

VB4/32, VB5, VB6 

Level: Beginning 

Stop the Flickering 

This code stops the annoying flicker often seen when you pack 
an object with data. Test this code with the controls that bother 
you most: 

Private Declare Function SendMessage Lib "user32" _ 
Alias "SendMessageA" (ByVal hWnd As Long, 
By Va 1 wMsg As Long, ByVal wParam As Long, _ 
1 Param As Any ) As Long 

Private Const WM_SETREDRAW = &HB 

Public Function LockControl (objX As Object, _ 
ByVal bLock As Boolean) 

Call SendMessagefobjX.hWnd, WM_SETREDRAW , 

bLock, ByVal 0&) 
If bLock = False Then 

On Error Resume Next 

objX . Refresh 
End If 
End Function 

— Andre Beneke, Reitz, South Africa 

VS.NET 

Level: Beginning 

Increase Your Work Area 

VS. NET's auto-hide feature of docked windows enables you to 
increase your work area. You can select whether a window stays 
displayed or auto-hides by clicking on the drawing pin icon in the 
window. One problem you might encounter when using auto-hide 
windows: When they roll out, they do so on top of the open 
designer window, thereby hiding part of your form or UserControl. 
For smaller forms and UserControls, dock the window to the right 
side of the screen; then when it rolls out, it won't cover the form 
or UserControl unless either one is extremely large. 

—Bill McCarthy, Barongarook, Victoria, Australia 
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VB4/32, VB5, VB6 

Level: Intermediate 

Get the Drive Serial Number 

You can get the serial number of your hard drive, floppy disk, or 
CD-ROM easily without any additional ActiveX component. First, 
start a VB project, add a standard module, and place a Command 
Button control on the form: 

' - - Modul e code 

Private Declare Function GetVol umelnformati on _ 
Lib "kernel32" Alias "GetVol umelnformati onA" _ 
(ByVal 1 pRootPathName As String, _ 
ByVal pVol umeNameBuf f er As String, _ 
ByVal nVol umeNameSi ze As Long, _ 
1 pVol umeSeri al Number As Long. _ 
1 pMaximumComponentLength As Long, _ 
1 pFi 1 eSystemFl ags As Long, _ 
ByVal 1 pFi 1 eSystetnNameBuf fer As String, _ 
ByVal nFileSystemNameSize As Long) As Long 

Public Function GetSerial Numbert _ 
ByVal sDrive As String) As Long 

If Len(sDrive) Then 

If InStr(sDrive, "\\") = 1 Then 

1 Make sure we end in backslash for UNC 
If Right$CsDrive, 1) <> "\" Then 

sDrive - sDrive & "\" 
End If 
Else 

' If not UNC, take first letter as drive 
sDrive = Lef t$ ( sDri ve , 1) & ":\" 
End If 
Else 

' Else just use current drive 
sDrive = vbNullString 
End If 

' Grab S/N -- Most params can be NULL 
Call GetVol umeInformation( _ 

sDrive, vbNullString, 0, GetSeri al Number , _ 
ByVal 0&, ByVal 0&, vbNullString, 0) 
End Function 

' - - Form code 

Private Sub Commandl_Cl i ck( ) 
Dim Drive As String 

Drive = InputBox( "Enter drive for checking SN") 
Msg Box Hex$(GetSerialNumber(Drive)) 
End Sub 

— Predrag Dervisevic, Krusevac, Yugoslavia 

VB3, VB4, VB5, VB6 

Level: Intermediate 

Select Areas Within a Graphics Window 

Graphics applications sometimes require users to select a rectan- 
gular region of a picture or drawing visually. You need to provide 
a resizing box manipulated by the pointer at run time that only 
interacts temporarily with the graphics displayed already (down- 
load this code). 

By assigning vblnvert to the PictureBox DrawMode property 
before selection dragging, you can restore the background graph- 
ics by redrawing the same rectangle. Once the selection dragging 
completes, mRect contains the selected rectangle coordinates. 
You can use the same technique to select a circular region or 
create the "rubber band" effect. 

— James Menesez, Templeton, Calif. 



VB6 

Level: Beginning 

Read a Complete Text File in One Pass 

Typically, you read and process a text file by using a loop and VB's 
Line Input statement: 

Do While Not Eof(l) 

Line Input #1, myStringVar$ 

' process the line here 
Loop 

However, you might want to defer processing or keep a copy of 
all the lines read for repeat processing or selective editing before 
writing them out again. You can achieve this quite easily by using 
VB's Get# and Split() statements to read the entire file at once and 
split it into an array containing all the lines. For example, this 
function returns the complete contents of a file as a string: 

Public Function ReadFi 1 e( ByVal FileName As String) _ 
As String 
Dim hFile As Long 
Dim bBuf ( ) As Byte 

hFile = FreeFile 

Open FileName For Binary Access Read As #hFile 
If LOF(hFile) > Then 

ReDim bBufd To LOF(hFile)) As Byte 

Get #hFile, , bBuf 

Close #hFile 

ReadFile = StrConvtbBuf , vbUnicode) 

End If 
End Function 

This code snippet drops the contents into an array, using the line 
break (vbCrLf) as a delimiter: 

Dim sLinest ) As String 
Dim sAl 1 As Stri ng 
Dim i As Long 

' Read the contents of some file 
sAll = ReadFile("c:\forml.frm") 

' Split into individual lines 
sLines - SplittsAll , vbCrLf) 

You can then process the file as desired; for example, you can 
search for specific lines: 

For i = LBoundtsLi nes ) to UBound(sLines) 
If Instrd, "SomeText", sLines(i), _ 
vbTextCompare) Then 
sLines(i) = "SomeOtherText" 
End If 
Next i 

— John Cullen, Pedroucos, Portugal 

VB4, VB5, VB6 

Level: Beginning 

Add Controls to a Project Quickly 

VB's Add File dialog supports only a single selection of code 
modules or OCXs, so you must painstakingly select each indi- 
vidual file and control one at a time. 

One of my previous tech tips publicized the fact that you can 
drag FRM, BAS, CLS, or CTL files from Windows Explorer to the 
Projects window in VB and VB adds them instantly to the project. 
What 1 didn't mention is that you can also drag OCX controls from 
Explorer and drop them on the VB6 Toolbox to add OCX controls 
to your project just as quickly and easily. 

— Darin Higgins, Fort Worth, Texas 
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VB4/32, VB5, VB6 

Level: Intermediate 

Add Multicharacter Search Capability to Listboxes 

Users often complain that listboxes don't have the same multiple 
keypress search capabilities as treeviews and other objects. But 
you can simulate this behavior by adding code to a form with a 
timer and a listbox whose Sorted property is set to True. 

For this test, Form_Load adds some data and sets the default 
interval between keystrokes. You can type in "AL" to get to Allan 
instead of the first instance of an entry with an "a" in the list. This 
can be extremely helpful in long lists. You can also convert this 
code easily for use within a custom control: 

Option Explicit 

Private Declare Function SendMessage Lib "user32" 
Alias "SendMessageA" (ByVal hwnd As Long, 
ByVal wMsg As Long, ByVal wParam As Long, _ 
1 Param As Any) As Long 

Private Const LB_F I NDSTRI NG - &H18F 
Private Const LB_ERR = ( -1) 

Private sSearchstri ng As String 

Private Sub Form_Load( ) 
With Llstl 

.Addltem "Adam" 

.Addltem "Allan" 

.Addltem "Arty" 

.Addltem "Asian" 

.Addltem "Barney" 

.Addltem "Bob- 
End With 

Timerl . Interval = 2000 
End Sub 

Private Sub Li stl_KeyPress( KeyAsci i As Integer) 
Dim nResult As Long 
Timerl . Enabl ed - True 

sSearchstring - sSearchstri ng & Chr$( KeyAsci i ) 
With Listl 

nResult = SendMessage( .hWnd, LB_FI NDSTRI NG , 

.Listlndex, ByVal sSearchstring) 
If nResult <> LB_ERR Then 
. Li stlndex = nResul t 
KeyAsci i = 
End If 
End With 
End Sub 

Private Sub Timerl_Timer( ) 

sSearchstring = "" 

Timerl . Enabl ed = False 
End Sub 

— Joseph L. Scally, Stamford, Conn. 



VS.NET 

Level: Intermediate 

Use Locals to Speed Up Code 

When working with an object's fields repetitively in VS.NET, you 
can improve performance two-fold by storing the object as a local 
variable rather than a field. In VB.NET, when you use the With 
myObject ... End With syntax, a local variable is created for 
myObject. In C#, you must declare the local variable and set it to 
the object. 

—Bill McCarthy, Barongarook, Victoria, Australia 



VB4/32, VB5, VB6, SQL Server 7.0 

Level: Advanced 

Execute a SQL Server DTS Package Remotely 

You can easily execute a SQL Server 7.0 Data Transformation 
Services (DTS) package from VB remotely: 

1 . Create a DTS package. It can be an import from Excel into SQL 
Server. 

2. Set a reference to Microsoft DTS Package Object Library in any 
VB project. You might need to load SQL Server on the develop- 
ment machine. 

3. Use the LoadFromSQLServer method on the package object: 

Private Sub cmdRef reshCustomers_Cl i ck( ) 
Dim oPackage As New DTS. Package 
On Error GoTo eh 

'Load the package that we created previously 
' ( "Customer_Li st" ) . 

'Use the global variables for SQL Server name, UserlD, 
'and Password. 

oPackage. LoadFromSQLServer sServername. sUid, sPwd. 

DTSSQLStgFlag_Default. 

"", "". "". "Customer_List", 
'Execute the Package 
oPackage. Execute 

MsgBox oPackage. Description, vblnformation, 

"Re-import Excel sheet." 
'Clean up. 

Set oPackage - Nothing 

Exit Sub 

eh: 

MsgBox Err. Description, vbCritical, _ 

"Error refreshing Customer List" 
'For more sophisticated sample VB code with DTS, go 
'to the SQL Server 7 CD and browse these folders: 
'devtools\samples\dts\dtsempl 1 or 2 or 3. 
End Sub 

This is a simple, powerful way to take advantage of any DTS 

package. 

—Steve Simon, Palisades Park, N.J. 

VB3, VB4, VB5, VB6 

Level: Beginning 

Embed Quotation Marks 

You use quotation marks in VB to define strings, but how do you 
include them in your output? Use whichever of these methods 
works the best for you: 

Dim strUseChr As String 
Dim strUseVar As String 
Dim strtlseObl As String 

Const Quote As String = """" 

StrUseChr - "Hello " & Chr$(34) & "VB" & _ 

Chr$(34) & " World!" 
strUseVar - "Hello " & Quote & "VB" & _ 

Quote & " World!" 
strUseDbl = "Hello ""VB"" World!" 

Debug. Print strUseChr 
Debug. Print strUseVar 
Debug. Print strUseDbl 

Each one prints: 

Hello "VB" World! 

—Dave Keighan, Victoria, British Columbia 
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Level: Intermediate 

Take a Quick Look at a File 

The Windows Script Host (WSH) supports many useful features, 
including VBScript's FileSystemObject object and the ability to 
drag and drop filenames. You can drag and drop a data file's icon 
onto the script (or a shortcut to the script) to see the first 10 lines 
of a file, or you can click on it to get an input box. You can specify 
any range of lines if you use arguments in the input box. The code 
gets the requested lines, puts them in a temporary file, and opens 
the temp file in Notepad. This utility can come in handy when you 
want to take a quick look at the layout of lines in a large file. 

You can download the WSH from Microsoft's Web site at 
http://msdn.microsoft.com/scripting. Be sure to download the 
latest release version if the shortcut doesn't activate with drag- 
and-drop. Save this code into a file with a VBS extension, create a 
shortcut on your desktop, then take a quick look at the files: 

Dim slnputLine, sMain, s 

Dim i , i P , i EndFi 1 eName 

Dim fso, tf, f 

Dim nStartPos, iLineCnt 

Dim iPopupDelay 

Dim varAr 

' Edit for your system! 

Const TempFile = "C:\Temp\temp.txt" 

nStartPos « 1 ' Default first line. 

iLineCnt - 10 ' Default number of lines to show. 

iPopupDelay = 4 ' Default Popup display, in seconds. 

Set objArgs - WScript. Arguments 

' If drag and drop was used, 
' the argument will be the filename. 
If objArgs . Count > Then 
slnputLine = objArgs(O) 
Else 

slnputLine = InputBoxt _ 

"Enter full name of file:" i vbCrLf & vbCrLf _ 
& "Arguments allowed after the file name:" & _ 
vbCrLf & " [number of lines to" & _ 
"show] [line to start at]" & vbCrLf & _ 
"Use single space for argument separator.", _ 
"Display Ten Lines of a File", "C:\") 

slnputLine = Trim(sInputLine) 
End If 

' Clean up as we go. 
Set objArgs = Nothing 

' If the cancel button was clicked, exit. 
If slnputLine = "" Then 

DisplayMsg "No file name entered." 

WScript. quit (0) 
End If 

' Get start of extension for parsing 

' reference point. 

i = InstrRevtsInputLine, ".") 

' If no extension, exit gracefully. 
If i - Then 

DisplayMsg "The filename " & slnputLine & 
" has no extensi on . " 

WScript. quit (0) 
End If 



' f i rst arg = i Li neCnt 
' second arg = nStartPos (optional) 
If i > Then 

i EndFi 1 eName = f - 1 

s = Trim(Mid(sInputLine. i)) 

If Len(s) > Then 

varAr = Spl it(s , " " ) 

If UBound(varAr) > Then nStartPos = _ 

CLng( varAr( 1 ) ) 
iLineCnt = CInt ( varAr( 0) ) 
s = 
End If 

SlnputLine - Left(sInputLine, i EndFi 1 eName) 
End If 

' Use the scripting file system object to retrieve 
' file lines. 

Set fso = WScript . CreateObject( _ 
"Scri pti ng . Fi 1 eSystemObject " ) 

' If the file doesn't exist, exit. 

If Not ( f so . Fi 1 eExi sts( slnputLi ne ) ) Then 

DisplayMsg "The file " & slnputLine & _ 
" does not exit." 

Set fso = Nothing 

WScript. quit (0) 
End If 

Set tf = fso.OpenTextFile(sInputLine) 

' Read iLineCnt file lines starting with line 
' nStartPos 
i - 1: 1P - 

Do While tf .AtEndOfStream <> True 
sMain = tf.ReadLine 
If i >= nStartPos Then 

s = s & sMain & vbCrLf 

iP = iP + 1 
End If 
i = i + 1 

if iP >= iLineCnt Then Exit Do 
Loop 

tf .Close 

' Save file lines string to a temporary file. 
Set f = f so .CreateTextFi 1 e( TempFi 1 e) 

f. Write (s) 
f .Close 

' Use the script host shell method to open the 
' temporary file in editor. 

Set WshShell = WScri pt .CreateObject ( "WScri pt . Shel 1 " ) 
WshShell.Run "notepad " & TempFile 

Set fso - Nothing 

Set WshShell = Nothing 

Sub Di spl ayMsg( sMsg ) 
Set WshShel 1 = _ 

WScri pt . CreateObject( "Wscri pt . Shel 1 " ) 
WshShel 1 . Popup sMsg, iPopupDelay. _ 
"Exiting Windows Script Host", _ 
vbOKOnly + vblnf ormati on 
Set WshShell = Nothing 
End Sub 

—Steve Worley, Bainbridge Island, Wash. 



' Check to see If there are arguments at End of 
' slnputLine 

i = InStrO', slnputLine. " ") 
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VB.NET 

Level: Intermediate 

Arrays With Non-Zero Lower Bounds 

In VB.NET, you can use the System.Array class to create an array 
with non-zero lower bounds. To do this, use the System.Array- 
Createlnstance method: Array.CreatelnstancefType, Lengths(), 
LowerBounds() ). 

If the array you create has two or more dimensions, you can 
cast it to a normal array. This example creates an array of strings 
equivalent to Dim sArray(5 To 14, 8 To 27): 

Dim Lengths*) As Int32 - 110, 201 
Dim LowerBoundst ) As Int32 = (5, 81 

Dim myArray As Array * _ 

Ar ray. Createlnstancet GetTypet String) , _ 
Lengths, LowerBounds) 

' have to declare the array with the correct 
' number of dimensions 

Dim sArray(,) As String = CTypetmyArray. _ 
String*,)) 

Dim i As Int32 

For i - To sArray.Rank - 1 
Consol e . Wri teLi ne _ 
("dimension 101 , LowerBound = 111. _ 

UpperBound - 121". _ 
i, sArray . Get LowerBound( i ) , _ 
sArray.GetUpperBoundti ) ) 

Next 

Note: You cannot cast to single dimension arrays because VB.NET 
creates them as vectors. 

— Bill McCarthy, Barongarook, Victoria, Australia 

VB3, VB4, VB5, VB6 

Level: Beginning 

Copy Filenames to a Clipboard 

File hierarchies are becoming more complex and file paths longer 
as the capacity of hard drives increases. There are still many 
occasions, however, when you can't browse to identify a file to be 
used — for example, when entering a constant in VB source. Nor- 
mally, there is no alternative but to type in the path — this can be 
both tiresome and error-prone. 

The solution: Create a new Standard EXE project, delete the 
default form (Forml), and add a module (Modulel by default). 
Type this code into Modulel: 

Sub MainO 

CI ipboard.SetText Commands 
End Sub 

Under Project I Project Properties, set the Startup Object to 
Sub Main. Give the project a suitable name (for example, filename) 
and create the executable (in this case, filename.exe). Create a 
shortcut to the executable on your desktop. When the name of file 
is required, browse using Explorer or My Computer. Drag the file 
and drop it onto the filename shortcut. The full path of the file is 
now on the clipboard and you can paste it as necessary. 

This works because dropping an object onto a program or 
its shortcut starts it with the name of the object in the command 
line. The program merely reads the command line and puts it onto 
the clipboard. 

— M.J. Roycroft. Caversfield. Bicester. Oxfordshire, England 



VBS 

Level: Beginning 

Format Strings in Proper Case 

VBScript does not support the StrConv() function, which is useful 
to format strings in proper case. Use this algorithm to help you: 

Public Function StrConv* _ 

ByVal psString, ByVal plFormat) 'As String 

Dim IsString 'As String 
Dim laString 'As String 
Dim liCount 'As Integer 
Dim lsWord 'As String 
Const vbProperCase = 3 

1 sStri ng = psStri ng 

Sel ect Case pi Format 
Case vbProperCase 

IsString - LCase( 1 sStri ng ) 
laString = Spl i t ( 1 sSt ri ng ) 
For liCount = To UBound( 1 aStri ng ) 
lsWord = laString(liCount) 
If Len(TrimdsWord)) > Then 

lsWord = UCase(Left(lsWord. 1 ) ) & _ 

RightdsWord, Len(lsWord) - 1) 
laString(liCount) = lsWord 
End If 
Next liCount 

IsString - Joint! aString) 

Case Else 
End Select 

StrConv = IsString 
End Function 

The sample call StrConv( "the pHillles wiLL PrevaiL ", 3) returns the 
string The Phillies Will Prevail'. 

You can use the same name for the corresponding Visual Basic 
function to facilitate easy adoption of the native version should it 
ever be supported in future releases of VBScript. If desired, you 
also can add support for the other StrConv formatting options. 
VBScript doesn't currently support the Mid statement (as op- 
posed to the Mid function) either, or you could rewrite this 
algorithm more efficiently using that. 

— Brian Egras, Philadelphia 

VB3, VB4, VB5, VB6 

Level: Beginning 

Add Nonkeyboard Characters to Your Project 

When creating a project or Web page, you sometimes need to use 
characters not included on your keyboard — for example, ®, S, §, ©, 
'/«• '4' ' %' so on - Sure, you can use the Chr$() function and 
create any single character by ASCII code, but you can accomplish 
this task in a simpler way. 

Hold down the Alt key on a keyboard. Using the numeric 
keypad, northe top row numbers, Type 0, then the three-digit ASCII 
code of the character. Now release the Alt key. For example, to 
enter the copyright symbol into a string literal, type Alt-0169. 

You'll see the designated character on the screen without any 
additional coding functionality. Easy, isn't it? All you need to know 
is the ASCII code of the character you want to use. You can look this 
up in the MSDN Library under Index: ASCII character set (Charac- 
ter Set 128-255), or — easier still — fire up the Character Map applet 
that comes with Windows. 

Be aware that although most text fonts follow mostly standard 
character mapping, deviations are common, and all bets are off if 
you end up with a symbol font. 

—Alex Grinberg, Holland, Pa. 
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VB4/32, VB5, VB6 

Level: Intermediate 

Create Unconventional Windows to Dazzle Users 

When designing a portion of an application that must grab users' 
attention quickly — such as your company's splash screen — you 
might want to create a nonrectangular window. This code shows 
you how to create a V-shaped window based on nine points: 

Private Type POINTAPI 

x As Long 

y As Long 
End Type 

Private Declare Function SetWi ndowRgn Lib "user32" _ 
(ByVal hWnd As Long, ByVal hRgn As Long. _ 
ByVal bRedraw As Boolean) As Long 

Private Declare Function CreatePolygonRgn _ 
Lib "gdi 32" (ByRef lpPoint As POINTAPI. _ 
ByVal nCount As Long, _ 
ByVal nPolyFillMode As Long) As Long 

Pri vate Sub Form_Load( ) 
Dim 1 handl e As Long 
Dim IpPointtO To 8) As POINTAPI 



lpPoint(O) 
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IpPoint(O) 
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lhandle = CreatePolygonRgn( 1 pPoi nt ( ) , 9, 1) 
Call SetWindowRgn(Me.hWnd, lhandle. True) 
End Sub 

— Andrew Holliday, Phoenix 

VB3, VB4, VB5, VB6 

Level: Beginning 

Close All Child Forms in One Shot 

In MDI applications, a user might have two or three or even more 
MDI child windows open at any given time. But in applications 
where you have user log-in and log-out security, you likely want to 
unload all open forms when the user logs out. To accomplish this, 
use this small piece of code: 

Do Until MDIforml .ActiveForm Is Nothing 

Unload MDIforml .Acti veForm 
Loop 

If you need to save any values in any form by default, you can 
include a call to the appropriate Save method in the Unload event 
of that form. 

— Unnikrishnan Thampy, Floral Park, N.Y. 



VB3, VB4, VB5, VB6 

Level: Beginning 

Return Roman Numerals 

This VB procedure returns decimal numbers (integers) as Roman 
numerals (a string), ranging from 1 to 4999. Numbers outside this 
range return the same number as a string. The optional parameter 
iStyle allows two different numerical styles: standard (4 = iv, 9 = ix, 
and so on) when iStyle = -1, or classical (4 = iiii, 9 = viiii, and so on) 
when iStyle = -2. 

The variable x should make the function more efficient, al- 
though you might not notice the time saved on a fast machine: 

Public Function RomantByVal n As Integer, _ 
Optional iStyle As Integer = -1) As String 

If n < 1 Or n >= 5000 Then 
Roman = CStr(n) 
Exit Function 

End If 

If iStyle <> -2 Then iStyle = -1 

Dim sRtn As String, i As Integer, x As Integer 
Dim r(l To 13) As String, v(l To 13) As Integer 



r(l) = 


" i " : 


v(l) 


= 1 


r(2) = 


" i v " 


v(2) 


= 4 


r(3) - 


" v " : 


v(3) 


= 5 


r(4) - 


" i x " 


v(4) 


= 9 


r(5) = 


"x" : 


v(5) 


= 10 


r(6) = 


"xl " 


v(6) 


= 40 


r(7) - 


■1*1 


v(7) 


= 50 


r(8) = 


"xc" 


v(8) 


= 90 


r(9) = 


" c " : 


vC9) 


= 100 



r(10) = "cd": v(10) = 400 

r(ll) - "d": v(ll) = 500 

r(12) = "cm": v(12) = 900 

r(13) = "m": v(13) - 1000 

x - UBound(v) 
sRtn = "" 
Do 

For i = x To LBound(v) Step iStyle 
If v(i) <= n Then 
sRtn - sRtn & r(i ) 

n = n - v ( i ) 
x = i 
Exit For 
End If 
Next i 
Loop Until n = 

Roman = sRtn 
End Function 

— Steven Digby, London 

VB3, VB4, VB5, VB6 

Level: Beginning 

Code an Event Procedure for Each Textbox 

If you want to code an event procedure (such as GotFocus) for 
each textbox on a freshly designed form, you must switch 
manually from the Change event to the GotFocus event for each 
one. This can be annoying and tedious, especially when many 
textboxes don't belong to a control array. To get around this, 
double-click on each textbox on the form to generate an empty 
Change event procedure. Then do a find-and-replace, searching 
for "_Change" and replacing it with "_GotFocus". Be careful not 
to do a "Replace All" unless there's very little other code in that 
form module already. 

—Thomas R. Weiss, DeerHeld, III. 
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VBS, VB6 

Level: Intermediate 

Use Hidden Enum Bounds 

Enumerated parameters don't prevent you from passing unenu- 
merated data to the function. Let's say you have this enumeration: 

Public Enum geAccessType 

Readonly = 1 

Wn'teOnly = 2 

ReadWn'te - 3 

NoAccess = 4 
End Enum 

And you have this function: 

Public Function DoSomeJobt _ 

eType As geAccessType) As Long 

MsgBox eType 
End Function 

You can call this function like this: 

'call #1 

DoSomeJob Readonly 

You can also call it like this, passing a value other than the 
enumerated constants: 

'call n 
DoSomeJob 45 

In any case, it works. 

If you add two variables to the enumeration and modify your 
function implementation, you can prevent out-of-bounds cases 
such as call #2 easily: 

Public Enum geAccessType 

[ _mi nAccessType] - 1 

Readonly - 1 

Wn'teOnly - 2 

ReadWn'te = 3 

NoAccess = 4 

[_maxAccessType] = 4 
End Enum 

Public Function DoSomeJobt 

eType As geAccessType) As Long 
Select Case eType 

Case geAccessType . [_m1 nAccessType] To _ 
geAccessType. [ jaxAccessType] 
MsgBox eType 
Case Else 

'raise error or do something else 
End Select 
End Function 

By default, [_minAccessType] or [_maxAccessType] do not ap- 
pear in the constant list. If you want to see them, open the Object 
Browser, right-click inside it, and select Show Hidden Members. 

— Russ Kot, Northbrook, 111. 




VB4/32, VB5, VB6 

Level: Intermediate 

International Test for Illegal Characters 

I was interested to read the tip "Test for Illegal Characters" in the 
10 lh Edition of the "101 Tech Tips for VB Developers" supplement 
[Visual Basic Programmer's Journal February 2000]. The tip, how- 
ever, has two significant drawbacks as published. First, it requires 
a function from the SHLWAPI DLL, which requires either Win98/ 
2000 or Win95/NT with Internet Explorer 4.0 or higher. Second, it 
only works, as presented, for U.S. (7-bit) character sets, requiring 
those of us who work with international character sets (such as 
accented characters) to consider which characters will be legal 
where our apps run. 

Luckily, Windows has the solution: the IsCharAlphaNumeric 
function, defined in User32.dll. This function uses the currently 
defined locale when performing comparisons, thereby allowing 
full use of accented characters. This sample demonstrates how 
you might use this function: 

Public Declare Function IsCharAlphaNumeric Lib _ 
"user32" Alias " IsCharAl phaNumeri cA" ( _ 
ByVal cChar As Byte) As Long 

Public Function IsAl phaNum( ByVal slnput As String) 
As Boolean 

Dim fCheck As Boolean 
Dim i As Integer 

' Assume non-alphanumeric 
fCheck = False 

' If we don't have any input, drop out 
If Len(slnput) Then 

i = 

Do 

i = i + 1 
fCheck - _ 

CBool ( IsCharAl phaNumeri c( 
Asc(Mid$(sInput, t. 1)))) 
Loop While fCheck And (i < Len(slnput)) 
End If 

IsAlphaNum = fCheck 
End Function 

You may pass any single or multiple character string to the 
function IsAlphaNum. The return value will be True if all charac- 
ters are alphanumeric and False otherwise. 

Windows also has several other useful functions for working 
with characters in the current locale. Note, however, that all 
functions require a byte to be passed, which you can achieve by 
passing the Asc() value of a given character (see previous example): 

1 Check if a given character is alphabetic 
Public Declare Function IsCharAlpha Lib "user32" _ 
Alias "IsCharAlphaA" (ByVal cChar As Byte) 

As Long 

' Check if a given character is lowercase 
Public Declare Function IsCharLower Lib "user32" 
Alias "IsCharLowerA" (ByVal cChar As Byte) 

As Long 

' Check if a given character is uppercase 
Public Declare Function IsCharUpper Lib "user32" _ 
Alias "IsCharUpperA" (ByVal cChar As Byte) 

As Long 

— John Cullen, Pedroucos, Portugal 
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VB5, VB6 

Level: Intermediate 

Use CopyFromRecordset With ODBC Recordsets 

You can create an ODBCDirect recordset for use with the Excel 
Range object's CopyFromRecordset method by using the 
DAO.Connection object's OpenRecordset method: 

Public Function CreateDaoRecordsett _ 
ByVal sDataSource As String, 
ByVal sUser As String, _ 
ByVal sPwd As String, _ 
ByVal sSql As String) 
As DAO. Recordset 

Dim daoWs As Workspace 

Dim daoConn As DAO.Connection 

Dim sConn As String 

Dim dbEng As DBEngine 

Set dbEng - New DBEngine 

Set daoWs = dbEng . CreateWorkspacet "" , "admin", 

"", dbUseODBC) 
sConn = "ODBC;DSN=" & sDataSource & ":UID=" 

& sUser & ";PWD-" & sPwd 
Set daoConn = daoWs .OpenConnecti on( " " , , , sConn) 
Set CreateDaoRecordset = _ 

daoConn . OpenRecordset ( sSql , dbOpenSnapshot) 
End Function 

The CopyFromRecordset method also works with Oracle8 data- 
bases. The trick: You must use a proper ODBC driver. The Microsoft 
ODBC driver for Oracle, msorcl32.dll version 02.573.3513.0, doesn't 
support the NUMBER data type in this method. The Oracle ODBC 
driver, sqora32.dll version 8.0.5.0.0, treats the NUMBER(n) data 
type as a dbDecimal and generates "Unspecified Automation 
Error" in the CopyFromRecordset method. But it accepts the 
NUMBER data type (without precision), interpreting it as a 
dbDouble. 

CopyFromRecordset doesn't copy column names to the Excel 
worksheet for further data analysis or reporting, so use this simple 
code instead. It copies column names to the first row of the active 
Excel worksheet oWsh and copies all data from the daoRs 
Recordset. The code assumes oWsh and daoRs have been de- 
clared and initialized elsewhere: 

oWsh . Acti vate 

For i Col = To daoRs. Fields. Count - 1 
oWsh.Cellsd. 1 Col + 1). Value = _ 
daoRs.Fieldsd'Col ) .Name 

Next 

oWsh . Range ( "A2" ) . CopyFromRecordset daoRs 
— Leonid Strakovskiy, New York 

SQL Server 6.5 and up 

Level: Beginning 

Simple Way to Debug a Stored Procedure 

Debugging stored procedures can be a headache, but here's an 
easier way to trace a stored procedure's execution: Use the PRINT 
statement. PRINT lets you output and analyze variable values, 
which is sometimes good enough. Note a few restrictions when 
using PRINT: 

1. You can use only Char or VarChar data types. You must 
convert other data types to Char or VarChar in order to "print" 
them out. 

2. The printed string can be up to 8,000 characters long; any 
characters after 8,000 are truncated. (SQL Server 6.5 up to 255 
characters long.) 

3. SQL Sever 6.5 doesn't allow inline concatenation of variables. 
SQL Server 7.0 and 2000 don't have this limitation. 

— Alex Grinberg, Holland, Pa. 



VB3, VB4, VB5, VB6 

Level: Intermediate 

Format Color for HTML 

This function, which converts a color value into a string suitable 
for HTML, formats an RGB color value, palette index, or system 
color constant. You accomplish this by breaking out the individual 
color values for red, green, and blue, then recombiningthem in the 
opposite order Windows likes, so HTML Tenderers will provide the 
correct color. The call to OleTranslateColor ensures you're using 
an actual color reference, by dereferencing system color con- 
stants or palette indices: 

Public Function Html HexCol or ( By Val ColorValue As _ 
Long) As String 
Dim r As Byte 
Dim g As Byte 
Dim b As Byte 

' convert color if needed 
Call OleTranslateColort _ 

ColorValue. 0&. ColorValue) 

' break out color bytes 

r = (ColorValue Mod &H100) 

g = (ColorValue \ &H100) Mod &H100 

b = (ColorValue V &H10000) Mod &H10000 

1 format the return string 
Html HexCol or = "#" & _ 

Right$("0" & Hex$(r), 2) & _ 

Right$("0" & Hex$(g), 2) & _ 

Right$("0" & Hex$(b), 2) 
End Function 

— Monte Hansen, Ripon, Calif. 

VBS 

Level: Beginning 

Use the Immediate If Function in VBScript 

Visual Basic includes the Immediate If function (Ilf), but VBScript 
(VBS) does not. However, you can copy this code to VBS to allow 
the Ilf function to be used: 

'VB Function not included in VBS 
Function I If ( Expressi on , TruePart, FalsePart) 
If Expression = True Then 
If IsObjecttTruePart ) Then 

Set Ilf - TruePart 
Else 

Ilf = TruePart 
End If 
Else 

If IsObject(FalsePart) Then 
Set Ilf = FalsePart 

Else 

Ilf = FalsePart 
End If 
End If 
End Function 

The function can return both objects and basic data types. Here's 
a sample function from an ASP page that calls the Ilf function: 

' Return a True or False value for a checkbox 
Function CheckBoxVal ue( Name) 
CheckBoxVal ue = _ 

IIf(Request.Form(Name) = "on", True, False) 

End Function 

— Conrad Sollitt, Los Angeles 
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VB4/32, VB5, VB6 

Level: Advanced 



& ,Y ,Y ,Y > Five Star Tip 



Override Built-in Keywords 

You can override some of the built-in VB keywords with your own 
version of the function. For instance, FileDateTime is a handy built- 
in function in VB, but it suffers from one big problem: It can't set 
the date/time of a file. By overriding the built-in function, however, 
you can provide this feature. With this approach, the function can 
determine for itself how it is being used and perform accordingly. 

You can override a number of keywords and functions in this 
manner: 

Private Declare Function SystemTimeToFileTime Lib _ 

"kernel32" ( 1 pSystemTime As SYSTEMTIME, 

lpFileTime As FILETIME) As Long 
Private Declare Function Local Fi 1 eTimeToFi 1 eTime _ 

Lib "kernel32" ( 1 pLocal Fi 1 eTime As FILETIME, 

lpFileTime As FILETIME) As Long 
Private Declare Function CreateFile Lib "kernel32" _ 

Alias "CreateFi 1 eA" (ByVal lpFileName As _ 

String, ByVal dwQesi redAccess As Long, ByVal 

dwShareMode As Long, 1 pSecuri tyAttri butes As _ 

Any, ByVal dwCreat i onDi spos i ti on As Long, _ 

ByVal dwFl agsAndAttri butes As Long, 

ByVal hTempl ateFi 1 e As Long) As Long 
Private Declare Function SetFileTime Lib "kernel32" 

(ByVal hFile As Long, 1 pCreati onTime As Any, _ 

1 pLastAccessTime As Any. 1 pLastWri teTime As 

Any) As Long 

Private Declare Function CloseHandle Lib "kerne!32" 
(ByVal hObject As Long) As Long 

Private Type FILETIME 

dwLowDateTi me As Long 

dwHi ghDateTime As Long 
End Type 

Private Type SYSTEMTIME 

wYear As Integer 

wMonth As Integer 

wDayOfWeek As Integer 

wDay As Integer 

wHour As Integer 

wMinute As Integer 

wSecond As Integer 

wMi 1 1 i seconds As Integer 
End Type 

Private Const GE NER I C_WRI T E As Long - &H40000000 
Private Const FI LE_SHARE_READ As Long = &H1 
Private Const FI LE_SHARE_WRITE As Long = &H2 
Private Const OPEN_EXISTING As Long = 3 

Public Function Fi 1 eDateTimet ByVal FileName As String. 
Optional ByVal TimeStamp As Variant) As Date 

' Raises an error if one occurs just like FileDateTime 

Dim x As Long 

Dim Handle As Long 

Dim System_Time As SYSTEMTIME 

Dim File_Time As FILETIME 

Dim Local_Time As FILETIME 

If IsMissing(TimeStamp) Then 

'It's missing so they must want to GET the timestamp 
'This acts EXACTLY like the original built-in function 
FileDateTime - VBA. Fi 1 eDateTimet Fi 1 eName) 

El self VarType(TimeStamp) <> vbDate Then 
'You must pass in a date to be valid 
Err. Raise 450 

Else 

System_Time.wYear - Year(TimeStamp) 



System_Time.wMonth = Month(TimeStamp) 
System_Time.wDay = Day (TimeStamp) 
System_Time.wDayOfWeek = _ 

Weekday(TimeStamp) - 1 
System_Time .wHour = Hour(TimeStamp) 
System_Time.wMinute = Minute(TimeStamp) 
System_Time.wSecond - Second(TimeStamp) 
System_Ti me .wMi 1 1 i seconds = 

'Convert the system time to a file time 

x = SystemTimeToFileTime(System_Time. Local_Time) 

'Convert local file time to file time based on UTC 
x = Local Fi 1 eTi meToFi 1 eTime( Local_Time , File_Time) 

'Open the file so we can get a file handle to 
'the file 

Handle = CreateFi 1 e( Fi 1 eName . GENERIC_W-RITE . 

FI LE_SHARE_READ Or FI LE_SHARE_WRITE , 

ByVal OS, OPE N_E X I ST I NG , 0, 0) 
If Handle = Then 

Err. Raise 53, "FileDateTime", 
"Can't open the file" 

Else 

'Now change the file time and date stamp 
x = SetFileTime(Handle. ByVal 0&. 

ByVal 0&. FileJMme) 
If x - Then 

'Error occured 

Err. Raise 1, "FileDateTime", _ 
"Unable to set file timestamp" 

End If 

Call CloseHandle(Handle) 
'Return newly set date/time 
FileDateTime = VBA . Fi 1 eDateTimet Fi 1 eName ) 
End If 
End If 
End Function 

—Darin Higgins, Fort Worth, Texas 

VB4/32, VB5, VB6, SQL Server 6.5 and up, Oracle 87 and up 

Level: Beginning 

Compare Oracle and SQL Server Dates 

Oracle and SQL Server databases use different date/time resolu- 
tions, which poses a problem when you compare times from the two 
databases: The times will rarely be equal. Solve this problem by 
allowing for a margin of error. Treat the dates and times as floating- 
point numbers and remember that each day is equal to the whole 
number 1, and there are 86,400 seconds in a day. This function 
matches times within five seconds (default) of one another: 

Public Function MatchTimetadoFldOracle As AD0DB. Field. 
adoFldSQLServer As AD0DB. Field, 
Optional ByVal Tolerance As Long = 5) As Boolean 

Dim dtOracle As Date 

Dim dtSQLServer As Date 

Dim dblTolerance As Double 

Const OneSecond As Double = 1 / 86400 

dblTolerance = OneSecond * Tolerance 

dtOracle = adoFl dOracl e. Val ue 

dtSQLServer - adoFl dSQLServer . Val ue 

If ((dtOracle > (dtSQLServer + dblTolerance)) Or _ 

(dtOracle < (dtSQLServer - dblTolerance))) Then 

MatchTime = False 
Else 

MatchTime = True 
End If 
End Function 

— Andy Clark, Richmond, Va. 
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VB3, VB4, VB5, VB6 

Level: Beginning 

Manage Errors With Sparse Line Numbering 

You might have used line numbering to track error locations, but 
this technique can be a pain (and ugly) to use for every line. Sparse 
line numbers help you locate code sections generating errors 
through the intrinsic Erl (error line) property. 

Erl captures the most recent line number so you can pinpoint 
error locations with whichever precision you desire. This can help 
you determine what to do in the error handler (download this code). 
For example, do you need to roll back the database transaction? 

—Bob Hiltner, Seattle 

VB3, VB4, VB5, VB6 

Level: Intermediate 

Replace All Occurrences of One String 
With Another String 

All programmers — especially database programmers — require a 
function that replaces all occurrences of one substring with an- 
other string. For example, they need to replace the single quotes 
in strings passed to an Oracle database with two single quotes. 

Using recursion in this algorithm limits its usefulness slightly 
below that of VB6's native Replace function, as the time required 
increases greatly in relation to the length of the searched string: 

Public Function strReplacetByVal strString As _ 
String. ByVal strToBeRepl aced As String, ByVal _ 
strRepl acement As String, Optional ByVal _ 
intStartPosition As Integer - 1) As String 
Dim strNewString As String 
Dim intPosition As Integer 

On Error GoTo ErrorHandler 

' intStartPosition will be one initially 
intPosition = InStrt intStartPosi ti on , _ 
strString, strToBeRepl aced ) 

If intPosition - Then 

' Nothing more to do so return final string 

strReplace = strString 
Else 

StrNewString = Lef t$( strSt ri ng , intPosition 
- 1) & strRepl acement & Mi d$(strStri ng , 
intPosition + Len( strToBeRepl aced ) ) 
Recursively call strReplace until there are 
no more occurrences of the string to be 
replaced in the string passed in. We now only want 
to process the remaining unprocessed part of the 
string so we pass a start position. 
strReplace = strRepl acetstrNewStri ng , _ 
strToBeRepl aced , strRepl acement , _ 
intPosition + Lent strRepl acement ) ) 

End If 
Exit Function 

ErrorHandl er : 

' Place error handler code here 
End Function 

— Patrick Tighe, Eastwall, Dublin, Ireland 



VB6 

Level: Advanced 



,Y & ,Y )< ,Y Five Star Tip 



Serialize Data Using a PropertyBag 

You can serialize your data quickly by placing it into a PropertyBag 
object, then reading the PropertyBag's Contents property. This 
property is really a Byte array that is a serial representation of the 
data in your PropertyBag object. You can use this byte array for 
many purposes, including an efficient means of data transmission 
over DCOM: 

Private Function PackDatat) As String 
Dim pbTemp As PropertyBag 

'Create a new PropertyBag object 
Set pbTemp = New PropertyBag 
With pbTemp 

'Add your data to the PB giving each item a 

'unique string key 

Call . Wri teProperty ( " Fi rstName" , "John") 
Call .WritePropertyC'Middlelnitial", "J") 
Call .WritePropertyt "LastName" , "Doe") 

'Place the serialized data into a string 
' vari abl e . 

Let PackData ■= .Contents 

End With 

Set pbTemp = Nothing 
End Function 

To retrieve the serialized data, simply create a new PropertyBag 
object and set the serialized string to its Contents property. 
Convert the string into a byte array before assigning it to the 
Contents property: 

Private Sub UnPackDatatsData As String) 
Dim pbTemp As PropertyBag 
Dim arDatat ) As Byte 

'Convert the string representation of the data to 

'a Byte array 

Let arDataf ) - sData 

'Create a new PropertyBag object 
Set pbTemp - New PropertyBag 
With pbTemp 

'Load the PropertyBag with data 

Let .Contents - arDatat ) 

'Retrieve your data using the unique key 

Let m_sFirstName - .ReadPropertyt "Fi rstName" ) 

Let m_sMiddleInitial - _ 

. ReadPropertyt "Middl elni ti al " ) 
Let m_sLastName = . ReadPropertyt "LastName" ) 
End With 



Set pbTemp 
End Sub 



Nothi ng 



— Mike Kurtz, McKees Rocks, Pa. 



VS.NET 

Level: Beginning 

Clear a Picture Property at Design Time 

To clear the picture property of a control at design time, right-click 
on the icon next to the entry in the Properties window and select 

Reset from the popup menu. 

— Bill McCarthy, Barongarook, Victoria, Australia 
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Take Control of SQL Server 

— — — — FREE Catalog & Demo 



Analyzer 



Total SQL Analyzer is the world's first professional 
documentation and analysis program for Microsoft SQL 
Server. Now you finally can take control of SQL Server. 



Get complete documentation of your server 
configuration. 

Get in-depth analysis of potential issues and 
performance problems. 

Use our powerful documentation explorer to see 
new views of your server and databases. 

Get complete documentation of database 
objects, including all properties and settings. 

Use over 70 presentation-quality reports. Print, 
Preview, or export to Word or HTML 

Easily see TSQL across all your stored 
procedures. 




lUJJjLL 



Total Visual 



2000 



jrceBook saves me hour after hour 
when I develop. The XML bits have been 
great for me as I'm fairly new XML, but 
also the more 'general' code bits give me 
what I need. And if I don't find exactly 
what I need, I can always use one or 
more of the code samples as a template 
for creating what I want! Thanks! 
- C. Thomsen, Microsoft MVP VB 



Total Visual SourceBook 2000 is a 
valuable tool that I refer to frequently. It 
is not only an easy to use reference for 
reliable code, it also uses good coding 
practices that have improved the quality 
of my own procedures and applications. 
N. Chezem, VB Developer 
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: CAOOConnSQLServer 

: Class to support client/server operations using 
the ADO feature in VB 6.0 This class 
sets up an ADO connection object for use with a 
Microsoft SQL Server database using the native OLE DB 
drivr 



Total Visual SourceBook 2000 



connection properties 
'rovider as String 
iriiti al Catalog As String 
iataSource as String 
As String 



ADODB .XartAttri buteEnum 

lOnTimeout As Long 
rLocation As ADODB. CursorLoc at ionEnum 
ADODB . Isol at ionLevel Enum 
ADODB .ConnectHodeEnum 



ADOTOXML 

DetaSource 
DrawRectEdge 



This is a MUST HAVE for ail VB developers. There is 

probably no other product on the market that can 

save VB developers as much development time. I 

recommend this product to developers 

wholeheartedly. 

- T. Howe, VB Author, Speaker 



I really love this program! Not only is it a time-saver 
and easy to use, but to be able to organize your 
own code is such an added bonus. 

- Connie P., VB Developer 



I 1-877-367-4032 • fmsinc.com/tt • sales@fmsinc.com 



